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Preface 



This publication tells how to use Assembler H. It describes assembler 
options, cataloged job control language procedures, assembler listing 
and output, assembler data sets, error diagnostic facilities, sample 
programs, and programming techniques and considerations. 

Assembler H is an assembler language processor for the Operating System. 
It performs high-speed assemblies on an IBM System/360 Model 40 or higher 
and on an IBM System/370 Model 145 or higher with at least 256K bytes of 
main storage. 

This manual has the following main sections: 

• Using the Assembler 

• Assembler Listing Description 

• Assembler Diagnostic Facilities 

• Programming Considerations 

"Using the Assembler" describes the EXEC statement FARM field option, 
the data sets used by the assembler, and the job control language 
cataloged procedures supplied by IBM. The cataloged procedures can be 
used to assemble, linkage edit or load, and execute an assembler program. 

"Assembler Listing Description" describes each field of the assembly 
listing. "Assembler Diagnostic Facilities" describes the purpose and 
format of error messages, MNOTEs, and the MHELP macro trace facility. 
"Programming Considerations" discusses various topics, such as standard 
entry and exit procedures for problem programs. 

Appendix A is a sample program which demonstrates many of the assembler 
language features, especially those unique to Assembler H. Appendix B 
is a sample MHELP macro trace and dump. Appendix C describes the object 
module output formats. Appendix D tells how to call the assembler 
dynamically from problem programs. 

This publication is intended for all Assembler H programmers. To use 
this publication, you should be familiar with the assem.bler language and 
with the basic concepts and facilities of the Operating System, 
especially job control language, data management services, supervisor 
services, and the linkage editor and loader. To use this publication 
effectively, the reader should be familiar with the OS Introduction , 
Order Number GC28-6534 or have the equivalent knowledge. 



Assembler Publications 

The following publication contains a brief description of Assembler H 
and how it differs from lower level OS assemblers: 

I OS Assembler H General Information Manual , Order Number GC26-3758. 

The following publications describe the assembler language and the 
information required to run Assembler H programs: 

I OS/VS and DOS/VS Assembler Language , Order Number GC33-4010. 
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OS Assembler Language / Order Number GC28-6514. 

The Assembler Language manual contains the basic assembler and macro 
assembler specifications, except those unique to Assembler H. 

OS Assembler H Language ^ Order Number GC26-3771. 

The Assembler H Language manual describes the language features 
that are available with Assembler H. It is supplemental to the two 
Assembler Language manuals listed above. 

OS Assembler H Messages , Order Number SC26-3770. 

The Messages manual provides an explanation of each of the diagnostic 
and abnormal termination messages issued by Assembler H and suggests how 
you should respond in each case. 

The following publications contain information used tc install and 
maintain Assembler H: 

OS Assembler H System Information , Order Number GC26-3768. 

The System Information manual consists of three self-contained chapters 
on performance estimates, storage estimates, and system generation of 
Assembler H. 

OS Assembler H Logic , Order Number LY26-3760. 

The Logic manual describes the design logic and functional 
characteristics of Assembler H. 



Operating System Publications 

The following OS books are referenced in this publication: 

OS/VS JCL Reference , Order Number GC28-0618, or 

OS Job Control Language Reference , Order Number GC 28-6704. 

OS/VS Linkage Editor and Loader , Order Number GC26-3803, or 

OS Loader and Linkage Editor , Order Number GC28-6538. 

OS/VS Supervisor Services and Macros , Order Number GC27-6979, or 

OS Supervisor Services and Macro Instructions , Order Number GC28-6646 

OS/VS Utilities , Order Number GC35-0005, or 

OS Utilities, Order Number GC 2 8 -6 58 6. 
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Using the Assembler 



This section describes the assembly time options available to the 
assembler language programmer, the data sets used by the assembler, and 
the cataloged procedures of job control language supplied by IBM to 
simplify assembling, linkage editing or loading, and execution of 
assembly language programs. The job control language is described in 
detail in the Job Control Language Reference publication. 



Assembler Options 

Assembler H offers a number of optional facilities. Fcr example, you 
can suppress printing of the assembly listing or parts of the listing, 
and you can specify whether you want an object deck or an object module. 
You select the options by including appropriate keywords in the FARM 
field of the EXEC statement that invokes the assembler. There are two 
types of options: 

• Simple pairs of keywords: a positive form (such as OBJECT) that 
requests a facility, and an alternative negative fcrm (such as 
NOOBJECT) that rejects that facility. 

• Keywords that permit you to assign a value to a function (such as 
LINECOUNT (50) . 

Each of these options has a standard or default value which is used for 
the assembly if you do not specify an alternative value. The default 
values are explained in the following section, "Default Options." 

If you are using a cataloged procedure, you must include the FARM field 
in the EXEC statement that invokes the procedure. You must also qualify 
the keyword (FARM) with the name of the step within the procedure that 
invokes the compiler. For example: 



I // EXEC ASMHC, FARM. C='0 EJECT, NODECK* 



The section "Overriding Statements in Cataloged Frocedures" contains 
more examples on how to specify options in a cataloged procedure. 

FARM is a keyword parameter: code FARM= followed by the list of options, 
separating the options by commas and enclosing the entire list within 
single quotes or parentheses. If you specify only one option and it 
does not include any special characters, the enclosing quotes or 
parentheses can be omitted. The option list must not be longer than 100 
characters, including the separating commas. You may specify the 
options in any order. If contradictory options are used (for example, 
LIST and NOLIST) , the rightmost option (in this case, NOLIST) is used. 

The assembler options are: 

(DECK, OBJECT, LIST, TEST, 'XREF(FULL/SHORT)', ALIGN, RENT, 

PARM= or or or or or 'LINECOUNT(nn); or or 

(NODECK,NOOBJECT, NOLIST,NOTEST,NOXREF, NOALIGN,NORENT. 

ESD, RLD, BATCH, 

or or or 'SYSPARM(string),FLAG(nnn)') 

NOESD,NORLD,NOBATCH, 
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DECK — The object module is placed on the device specified in the 
SYSPUNCH DD statement. 

I OBJECT — The object module is placed on the device specified in the 
SYSLIN ED statement. 

I Note ; The OBJECT and DECK options are independent of each other. Both 
or neither can be specified. The output on SYSLIN and SYSPUNCH is 
identical except that the control program closes SYSLIN with a 
disposition of LEAVE and SYSPUNCH with a disposition of REREAD. 

ESD — The assembler produces the External Symbol Dictionary as part 
of the listing. 

RLD — The assembler produces the Relocation Dictionary as part of 
the listing. 

I BATCH — The assembler will do multiple (batch) assemblies under the 
control of a single set of job control language cards. The 
source decks must be placed together with no intervening /* 
card; a single /* card must follow the final source deck. 

LIST — An assembler listing is produced. Note that the NOLIST 
option overrides the ESD, RLD, and XREF options. 

TEST — The object module contains the special source symbol table 
required by the test translator (TESTRAN) routine. 

XREF (FULL) — The assembler listing will contain a cross reference table 
of all symbols used in the assembly. This includes symbols that 
are defined but never referenced. The assembler listing will also 
contain cross reference table of literals used in the assembly. 

XREF (SHORT) — The assembler listing will contain a cross reference 
table of all symbols that are referenced in the assembly. Any 
symbols defined but not referenced are not included in the table. 
The assembler listing will also contain a cross reference table of 
literals used in the assembly. 

RENT — The assembler checks for a possible coding violation of 
program reenterability. 

I LINECOUNT (nn) — The number of lines to be printed between headings 
in the listing is nn. The permissible range is 
1 to 99 lines. 

I NOALIGN — The assembler suppresses the diagnostic message "lEVOSS 

ALIGNMENT ERROR" if fixed point, floating-point, or logical data 
referenced by an instruction operand is not aligned on the proper 
boundary. The message will be produced, however, for references 
to instructions that are not aligned on the proper (halfword) 
boundary or for data boundary violations for privileged 
instructions such as IPSW. DC, DS, DXD, or CXD constants, usually 
causing alignment, are not aligned. See the "Special CPU 
Programming Considerations" section for information on alignment 
requirements. 

I ALIGN — • The assembler does not suppress the alignment error diagnostic 
message; all alignment errors are diagnosed. 

I FLAG (nnn) — Error diagnostic messages below severity code nnn will not 
appear in the listing. Diagnostic messages can have severity 



codes of 0, U, 8, 12, 16, or 20 (0 is the least severe) . MNOTEs 
can have a severity code of through 255. 

For example, FLAG (8) will suppress messages for severity codes 
through 7. 

SYSPARM (string) — 'string' is the value of the system variable symbol 
SSYSPARM. The assembler uses SSYSPARM as a read-only SETC 
variable. If no value is specified for the SYSPARM option, 
SSYSPARM will be a null (empty) character string. Ihe function of 
SSYSPARM is explained in the Assembler H Language Specifications 
and in QS/VS and DOS/VS Assembler Language . 

Due tc JCL restrictions, you cannot specify a SYSPARM value longer 
than 56 characters (as explained in Note 1) . Twc quotes are needed 
to represent a single quote, and two ampersands to represent a 
single ampersand. For example: 

PARM= 'OBJECT, SYSPARM ( (6gAM,"E0) .FY) ' 

assigns the following value to SSYSPARM: 

(SAM,'EO) .FY . 

Any parentheses inside the string must be paired. If you call the 
assembler from a problem program (dynamic invocation) , SYSPARM can 
be up to 256 characters long. 

Itote 1 : The restrictions imposed upon the PARM field limit the maximum 
length of the SYSPARM value to 56 characters. Consider the following 
example: 

// EXEC ASMFC,PARM.C= (OBJECT, NODECK, 

// • SYSPARM (AECE ) •) . 

t t ♦ . f 

rH rl^ f^, 00 

r— ( VO 

8 8 o 56 bytes '3 

u p 

Since SYSPARM uses parentheses, it must be surrounded by quotes. Thus, 

it cannot be continued onto a continuation card. The leftmost coliamn 

that can be used is column 4 on a continue card- A quote and the 

keyword must appear on that line as well as the closing quotes. In 

addition, either a right parenthesis, indicating the end of the PARM 

field, or a comma, indicating that the PARM field is continued on the 

next card, must be coded before or in the last column of the statement 

field (column 71) . 

Note 2 ; Even though the formats of some of the options previously 
supported by Assembler H have been changed, you can use the old formats 
for the following options: ALGN (now ALIGN) , NOALGN (NOALIGN) , 
LINECNT=nn (LINECOUNT (nn) ) , LOAD (OBJECT) , and NOLOAD (NOOBJECT) . 



Default Options 

If you do not code an option in the PARM field, the assembler assumes a 
default option. The following default options are included when 
Assembler H is shipped by IBM: 

PARM=(DECK,NOOBJECT,LIST,NOTEST,'XREF{FULL),LINECOUNT(55)',ALIGN,NOBATCH/SYSPARM( ),FLAG(0)') 
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However, these may not be the default options in effect in your 
installation. The defaults can be respecified when Assembler H is 
installed. For example, NOCECK can be made the default in place of DECK. 
Also, a default option can be specified during installation so that you 
cannot override it. 

The cataloged procedures described in this book assume the default 
entries. The section "Overriding Statements in Cataloged Procedures" 
tells you how to override them. First, however, check whether any 
default options have been changed or whether there are any you cannot 
override at your installation. 



Assembler Data Sets 

Assembler H requires the following data sets, as shown in Figure 1: 

• SYSUT1 -- utility data set used as intermediate external storage. 

• SYSIN — an input data set containing the source statements to be 
processed. 

In addition, the following four data sets may be required: 

• SYSLIB — a data set containing macro definitions (for macro 
definitions not defined in the source program) and/cr source code to 
be called for through COPY assembler instructions. 

• SYSPRINT — a data set containing the assembly listing (unless the 
NOLIST option is specified) . 

• SYSPUNCH — a data set containing object module output, usually for 
punching (unless the NODECK option is specified) . 

• SYSLIN — a data set containing object module output usually for the 
linkage editor (only if the OBJECT option is specified) . 

The above data sets are described in the following text. The DDname 
that normally must be used in the DD statement describing the data set 
appears as the heading for each description. The characteristics of 
these data sets, those set by the assembler and those you can override, 
are shown in Figures 2 and 3. 



SYSLIB 



(Macro and 
COPY Calls) 



Llsting- 

121 Characters 

Wide 




\. 



SYS IN 




/ 



SYSUT1 



Assembler H 



(overflow) 




"^(Object Modules)'^ 

(80 Character Card Image) 



^ SYSPRINT X / SYSLIN \ / SYSPUNCH ^ 




Figure 1 . Assembler H Data Sets 
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DP NAME SYSUT1 

The assembler uses this utility data set as an intermediate external 
storage device when processing the source program. The input/output 
device assigned to this data set must be a direct access device. The 
assembler dees not support a multi-volume utility data set. The IBM 
2321 Data Cell is not supported for this data set. 



DDNAME SYS IN 

This data set contains the input to the assembler — the source 
statements to be processed. The input/output device assigned to this 
data set may be either the device transmitting the input stream, or 
another sequential input device that you have designated- The DD 
statement describing this data set appears in the input stream. The 
IBM-supplied procedures do not contain this statement. 



DDNAME SYSLIB 

From this data set, the assembler obtains macro definitions and 
assembler language statements to be called by the COPY assembler 
instruction. It is a partitioned data set; each macro definition or 
sequence of assembler language statements is a separate member, with the 
member name being the macro instruction irnemonic or COPY operand name. 

The data set may be defined as SYS1.MACLIB or your private macro 
definition or COPY library. SYS1.MACLIB contains macro definitions for 
the system macro instructions provided by IBM. Your private library may 
be concatenated with SYS1.MACLIB. The two libraries must have the same 
logical record length (80 bytes) , but the blocking factors may be 
different. The DD statement for the library with the largest blocksize 
must appear first in the job control language for the assembly (that is, 
before any other library ED statements) . The Job Control Language 
Reference publication, explains the concatenation of data sets. 



DDNAME SYSPRINT 

This data set is used by the assembler to produce a listing. Output may 
be directed to a printer, magnetic tape, or direct- access storage device. 
The assembler uses the machine code carriage control characters for this 
data set. 



DDNAME SYSPUNCH 



The assembler uses this data set to produce the object module. The 
input/output unit assigned to this data set may be either a card punch 
or an interm.ediate storage device capable of sequential access. 



DDNAME SYSLIN 



This is a direct-access storage device, magnetic tape, or card punch 
data set used by the assembler. It contains the same output text as 
SYSPUNCH. It is used as input for the linkage editor. 



Data Set 



SYSUT1 



SYSPUNCH SYSPRINT 



SYSLIN SYSIN 



SYSLIB 



Access Method 



BSAM 



BSAM 



BSAM 



BSAM 



BSAM 



BPAM 



Logical Record 
Length (LRECL) 



fixed at 
BLKSIZE 



fixed at 
80 



fixed at 
121 



fixed at 
80 



fixed at 
80 



fixed at 
80 



Block Size 
(BLKSIZE) 



© 



® 



® 



® 



® 



® 



Record Format 
(RECFM) 



® 



®® 



®® 



®® 



Number of channel 
Programs (NCP) 



® 



® 



® 



® 



© 



Not 
Applicable 



® 



You can specify a blocksize (BLKSIZE) between 2008 and 5100 bytes in the DD statement or in the data 
set label. BLKSIZE should be a multiple of 8; if it is not, it will be rounded to the next lower multiple of 
8. If you do not specify BLKSIZE, the assembler sets a default blocksize based on the device used for 
SYSUT1 as follows: 



2301 Drum 

2302 Disk 

2303 Drum 
2305 Drum 

model 1 
2305 Drum 

model 2 
2311 Disk 
2314 Disk 
3330 Disk 



5016 bytes 
4984 bytes 
4888 bytes 
4280 bytes 

4688 bytes 

3624 bytes 
3520 bytes 
4208 bytes 



® 

® 
© 
® 
® 
® 



The Storage Estimates chapter of the System Information manual. Order Number SC26-3768, discusses the 
reasons for changing the default blocksize. 

If specified, BLKSIZE must equal LRECL or a multiple of LRECL, If BLKSIZE is not specified, it is set equal 
to LRECL. If BLKSIZE is not a multiple of LRECL,"it Is truncated. 

BLKSIZE be specified in the DD statement or the data set label as a multiple of LRECL 

Set by the assembler to F or FB if necessary. 

Set by the assembler to FM or FBM if necessary. 

You may specify B, S, or T. 

You can specify the number of channel programs (NCP) used by any assembler data set except SYSUT1 and 
SYSLIB. The NCP of SYSUT1 is fixed at 1. The assembler, however, can change your NCP specification under 
certain conditions. Figure 3 shows how NCP is calculated. Note that if the NCP is greater than 2, chained I/O 
request scheduling is set by the assembler. 



Figure 2. Assembler Eata Set Characteristics 
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Number of Channel Programs (NCP) 



The number of channel programs can be specified by the user or set by 
the assembler. The number will vary depending upon whether or not a 
unit record device is used. The following table shows how the NCP 
selection is made. 





Unit record 
device 


No unit 
record device 


NCP specified a 2 


User specified 


User specified 


NCP specified = 1 


Computed ^ 


User specified {= 1) 


NCP not specified 


Computed ^ 


Computed ^ 



Figure 3. Number of Channel Program (NCP) Selection 

1 For SYSPRINT data set, the NCP set by the assembler is the larger of 
1210/ELKSIZE or 2. 

For SYSIN data set, the NCP set by the assembler is the larger of 
800/ELKSIZE or 2. 

For SYSLIN or SYSPUNCH data set, the NCP set by the assembler is the 
larger of 240/ELKSIZE or 2. 

Note : If the NCP is greater than 2, chained I/O scheduling is set by the 
assembler. 
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Assembler H issues return codes for use with the COND parameter of the 
JOB and EXEC job control language statements. The CONE parameter 
enables you to skip or execute a job step depending on the results 
(indicated by the return code) of a previous job step. It is explained 
in the Job Control Language Reference publication. 

The return code issiaed by the assembler is the highest severity code 
that is associated with any error detected in the assembly or with any 
MNOTE message produced by the source program or macro instructions. See 
the Assembler H Messages publication, for a listing of the assembler 
errors and their severity codes. 



Cataloged Procedures 



Often the same set of job control statements is used over and over again 
(for example, to specify the compilation, linkage editing, and execution 
of many different programs) . To save programming time and to reduce the 
possibility of error, sets of standard series of EXEC and DD statements 
can be prepared once and 'cataloged* in a system library. Such a set of 
statements is termed a cataloged procedure and can be invoked by one of 
the following statements: 



//stepname EXEC 
//stepname EXEC 



procname 
PROC=procname 



The specified procedure is read from the procedure library 
(SYS1 .PROCLIB) and merged with the job control statements that follow 
this EXEC statement. 

This section describes four IBM cataloged procedures: a procedure for 
assembling (ASMHC) , a procedure for assembling and linkage editing 
(ASMHCL) , a procedure for assembling, linkage editing, and executing 
(ASMHOLiG) , and a procedure for assembling and loader-executing (ASMHCG) 



CATALOGED PROCEDURE FOR ASSEMBLY (ASMHC) 

This procedure consists of one job step: assembly. The name ASMHC must 
be used to call this procedure. The result of execution is an object 
module, in punched card form, and an assembler listing. 

In the following example, input enters via the input stream- An example 
of the statements entered in the input stream to use this procedure is: 

//jobname JOB 

//stepname EXEC PROC=ASMHC 

//C.SYSIN DD * 

I 

I 
source program statements 

I 

I 
/* (delimiter statement) 

The statements of the ASMHC procedure are read from the procedure 
library and merged into the input stream. 

Figure 4 shows the statements that make up the ASMHC procedure. 



^ //C EXEC PGM=IEV90,REGION=200K 

2 //SYSLIB DD DSiM=SYSl.lVIACLIB,DISP=SHR 

^ //SYSUTl DD UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)).DSN=&SYSUT1 

^ //SYSPUNCH DD SYSOUT=B,DCB=(BLKSIZE=800),SPACE=(CYU(5,5.0)) 

^ //SYSPRINT DD SYSOUT=A,DCB=(BLKSIZE=3509),UNIT=(,SEP=(SYSUT1,SYSPUNCH)) 



PARM= or COND= parameters may be added to this statement by the EXEC statement that calls the procedure 
(see "Overriding Statements in Cataloged Procedures"). The system name IEV90 identifies Assembler H. 

2 

This statement identifies the macro library data set. The data set name SYS1.MACLIB is an IBM designation. 

3 

This statement specifies the assembler utility data set. The device classname used here, SYSDA, represents a 

direct-access unit. The I/O unit assigned to this name is specified by the installation when the operating 

system is generated. A unit name such as 231 1 may be substituted for SYSDA. 

This statement describes the data set that will contain the object module produced by the assembler. 

° This statement defines the standard system output class, SYSOUT=A, as the destination for the assembler listing. 



Figure U. Cataloged Procedure for Assembly (ASMHC) 
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CATALOGED PROCEDURE FOR ASSEMBLY AND LINKAGE EDITING (ASMHCL) 

This procedure consists of two job steps: assembly and linkage editing. 

The name ASMHCL must be used to call this procedure. Execution of this 

procedure results in the production of an assembler listing, a linkage 
editor listing, and a load module - 

The following example illustrates input to the assembler via the input 
job stream. SYSLIN contains the output from the assembly step and the 
input to the linkage edit step. It can be concatenated with additional 
input to the linkage editor as shown in the example. This additional 
input can be linkage editor control statements or other object modules. 

An example of the statements entered in the input stream to use this 
procedure is: 



//jobname 

//stepname 

//C.SYSIN 



JOB 

EXEC PROC=ASMHCL 

DD * 



I 
source program statements 



/* 
//L.SYSIN 



DD 



object module or 
linkage editor 
control statements 



necessary only if linkage 
. editor is to combine modules 
or read linkage editor control 
information from the job stream 
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Figure 5 shows the statements that make up the ASMHCL procedure. Only 
those statements not previously discussed are explained. 



lie 

//SYS LIB 
//SYSUT1 
//SYSPUNCH 
//SYSPRINT 

1 //SYS LIN 
II 

2 //L 

3 //SYSLIN 

4 // 

^ //SYSLMOD 
^ //SYSUTl 
^ //SYSPRINT 



EXEC PGM=IEV90,PARM=OBJECT,REGION=200K 

DD DSN=SYS1.MACLIB,DISP=SHR 

UNIT={SYSDA,SEP=SYSLIB).SPACE=(CYL.{10,5)),DSN=&SYSUT1 
SYSOUT=B,DCB=(BLKSIZE=800),SPACE=(CYL,(5.5,0)) 
SYS0UT=A,DCB={BLKSIZE=3509),UNIT={,SEP=(SYSUT1 .SYSPUNCH)) 



DD 
DD 
DD 
DD 



DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)), 
DCB=(BLKSIZE=400),DSN=&&LOADSET 



EXEC PGM=IEWL,PARM='MAP,LET,LIST,NCAL'.REGION=96K,COND=(8,LT,C) 

DD DSN=&&LOADSET,DISP={OLD,DELETE) 

DD DDNAME=SYSIN 

DD DISP=(,PASS),UNIT=SYSDA,SPACE={CYL,(2,l,2)),DSN=&GOSET{GO) 

DD UNIT=SYSDA.SPACE=(CYL,{3.2)),DSN=&SYSUT1 

DD SYSOUT=A,DCB=(RECFM=FB,BLKSIZE=3509) 



In this procedure the SYSLIN DD statement describes a temporary data set - - the object module - - which is to be 
passed to the linkage editor. 

■ This statement initiates linkage editor execution. The linkage editor options in the PARM=field cause the linkage 
editor to produce a cross-reference table, a module map, and a list of all control statements processed by the linkage 
editor. The NCAL option suppresses the automatic library call function of the linkage editor. 

' This statement identifies the linkage editor input data set as the same one (SYSLIN) produced as output from the 
assembler. 

This statement is used to concatenate any input to the linkage editor from the input stream (object decks and/or 
linkage editor control statements) with the input from the assembler. 

' This statement specifies the linkage-editor output data set (the load module). As specified, the data set will be 
deleted at the end of the job. If it is desired to retain the load module, the DSN parameter must be respecified 

and a DISP parameter added. See "Overriding Statements in Cataloged Procedures. " If the output of the linkage 
editor is to be retained, the DSN parameter must specify a library name and member name where the load 
module is to be placed. The DISP parameter must specify either KEEP or CATLG. 

This statement specifies the utility data set for the linkage editor. 

This statement identifies the standard output class as the destination for the linkage editor listing. 



Figure 5. Cataloged Procedure for Assembling and Linkage Editing 
(ASMHCL) 
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CATALOGED PROCEDURE FOR ASSEMBLY, LINKAGE EDITING, ANE EXECUTION 
(ASMHCLG) 



This procedure consists of three jot steps: 
and execution. 



asseirbly, linkage editing. 



Figure 6 shews the statements that make up the ASMHCLG procedure. Only 
those statements not previously discussed are explained in the figure. 

The name ASMHCLG must be used to call this procedure. An assembler 
listing, an object deck, and a linkage editor listing are produced. 

The statements entered in the input stream to use this procedure are: 



//jobname JOB 

//stepname EXEC PROC=ASMHCLG 

//C.SYSIN DD * 

I 

I 

I 
source program statements 

I 

I 



//L.SYSIN 



DD 



I 

I 
object module or 
linkage editor 
control statements 

I 



//G.ddname 
//G.ddname 
//G.ddname 



I 

DD 
DD 

DD * 
I 
I 
I 
problem program input 



necessary only if linkage 
editor is to combine modules 
or read linkage editor control 
information from the job stream 



(parameters) 
(parameters) 



/* 



► only if necessary 
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PGM=IEV90,PARM=OBJECT,REGION=200K 

DSN=SYS1.MACLIB,DISP=SHR 

UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)),DSN=&SYSUT1 

SYSOUT=B.DCB=(BLKSIZE=800),SPACE=(CYL,(5,5.0)) 

SYSOUT=A,DCB=(BLKSIZE=3509),UNIT=(,SEP=(SYSUT1,SYSPUNCH)) 

DISP=(,PASS).UNIT=SYSDA,SPACE=(CYL,(5,5.0)). 
DCB=(BLKSIZE=400),DSN=&&LOADSET 

PGM=IEWL,PARM-'!\/IAP,LET,LIST,NCAL',REGION=96K,COND={8,LT,C) 

DSN=&&LOADSET,DISP=(OLD,DELETE) 

DDNAME=SYSIN 

DISP=(,PASS).UNIT=SYSDA,SPACE=(CYL,(2,1,2)),DSN=&GOSET(GO) 

UNIT=SYSDA,SPACE=(CYU(3,2)),DSN=&SYSUT1 

SYSOUT=A,DCB={RECFM=FB,BLKSIZE=3509) 

PGM=*.L.SYSLMOD,COND= { (8,LT,C),{4,LT,L)) 



The LET linkage-editor option specified in this statement causes the linl<age editor to marl< the load module as 
executable even though errors were encountered during processing. 

2 

The output of the linkage editor is specified as a member of a temporary data set, residing on a direct-access 

device, and is to be passed to a succeeding job step, 
o 

This statement initiates execution of the assembled and linkage edited program. The notation *.L.SYSLMOD 
identifies the program to be executed as being in the data set described in job step L by the DD statement 
named SYSLMOD. 



lie 


EXEC 


//SYSLIB 


DD 


//SYSUT1 


DD 


//SYSPUNCH 


DD 


//SYSPRINT 


DD 


//SYSLIN 
// 


DD 


//L 


EXEC 


//SYSLIN 


DD 


II 


DD 


//SYSLMOD 


DD 


//SYSUT1 


DD 


//SYSPRINT 


DD 


//G 


EXEC 



Figure 6. Cataloged Procedure for Assembly, Linkage Editing and 
Execution (ASMHCLG) 



CATALOGED PROCEDURE FOR ASSEMBLY AND LOADER EXECUTION (ASMHCG) 

This procedure consists of two job steps: assembly and loader execution. 
Loader-execution is a combination of linkage editing and loading the 
program for execution. Load modules for program libraries are not 
produced . 
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lie 


EXEC 


PGM=IEV90,PARM=OBJECT,REGiON=200K 




//SYSLIB 


DD 


DSN=SYS1 .MACLI B.DISP=SH R 




//SYSUTl 


DD 


UNIT={SYSDA,SEP=SYSLIB),SPACE={CYL.{10,5)).DSN=&SYSUT1 




//SYSPUNCH 


DD 


SYSOUT=B,DCB=(BLKSIZE=800),SPACE=(CYU{5,5,0)) 




//SYSPRINT 


DD 


SYSOUT=A,DCB={BLKSIZE=3509),UNIT={,SEP=(SYSUT1.SYSPUNCH)) 




//SYSLIN 
// 


DD 


DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5.0)). 
DCB=(BLKSIZE=400),DSN=&&LOADSET 


1 


//G 


EXEC 


PGM=LOADER,PARM='MAP.LET,PRINT,NOCALL' 


2 


//SYSLIN 


DD 


DSN=&&LOADSET.DISP=(OLD.DELETE) 




// 


DD 


DDNAME=SYSIN 


3 


//SYSLOUT 


DD 


SYSOUT=A 


1 


This statement initiates loader-execution. The loader options in the PARM= field cause the loader to produce a 
map and print the map and diagnostics. The NOCALL option is the same as NCAL for the linkage editor and the 
LET option is the same as for the linkage editor. 


2 


This statement defines the loader input data set as the same one produced as output by the assembler. 


3 


This statement identifies the standard output class as the destination for the loader listing. 



Figure 7. Cataloged Procedure for Assembly and Loader-Execution 
(ASMHCG) 

Figure 7 shows the statements that make up the ASMHCG procedure. 

Only those statements not previously discussed are explained in the figure. 

The name ASMHCG must be used to call this procedure. 
Assembler and loader listings are produced. 

The statements entered in the input stream to use this procedure are: 



//jobname 

//stepname 

//C.SYSIN 



JOB 

EXEC PROC=ASMHCG 

DD * 

I 

I 

I 



source program 



/• 

//G.ddname 
//G.ddname 
//G.ddname 



DD (parameters) 
DD (parameters) 
DD * 



I 

problem program input 

I 



only if necessary 
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OVERRIDING STATEMENTS IN CATALOGED PROCEDURES 

Any parameter in a cataloged procedure can be overridden except the PGM= 
parameter in the EXEC statement. Such overriding of statements or 
fields is effective only for the duration of the job step in which the 
statements appear. The statements, as stored in the procedure library 
of the system, remain unchanged. 

Overriding for the purposes of respecification, addition, or 
nullification is accomplished by including in the input stream 
statements containing the desired changes and identifying the statements 
to be overridden. 



EXEC Statements 

Any EXEC parameter (except PGM) can be overridden. Fcr example, the 
PARM= and CONE= parameters can be added or, if present, respecified by 
including in the EXEC statement calling the procedure the notation 
PARM. stepnanie=, or COND.stepname=, followed by the desired parameters - 
"Stepname" identifies the EXEC statement within the procedure to which 
the modification applies. 

If the procedure consists of more than one job step, a PARM. pro cstepname= 
or COND.procstepname= parameter may be entered for each step. The 
entries must be in order (PARM.procstep1=, PARM.procstep2=, etc.) . 



DD Statements 

All parameters in the operand field of DD statements may be overridden 
by including in the input stream (following the EXEC card calling the 
procedure) a ED statement with the notation //procstepname.DDname in the 
name field. "Procstepname" refers to the job step in which the 
statement identified by "EDname" appears. 

Note: If more than one DD statement in a procedure is to be overridden, 
the overriding statements must be in the same order as the statements in 
the procedure . 



Examples 

In the assembly procedure ASMHC (Figure 4) , the production of a punched 
object deck could be suppressed and the UNIT= and SPACE= parameters of 
data set SYSUT1 respecified, by including the following statements in the 
input stream: 

//stepname EXEC PROC=ASMHC, x 

// PARM.C=NODECK 

//C.SYSUTl DD UNIT=2311, x 

// SPACE=(200,(300,40)) 

//CSYSIIM DD 
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In procedure ASMHCLG (Figure 6) , suppressing production of an assembler 
listing and adding the COND= parameter to the EXEC statement, which 
specifies execution of the linkage editor, may be desired. In this 
case, the EXEC statement in the input stream would appear as follows: 

//stepname EXEC PROC=ASMHCLG, X 

// PARM,C={NOLIST,OBJECT), X 

// C0ND.L=(8,LT,stepname.C) 

For this execution of procedure ASMHCLG, no assembler listing would be 
produced, and execution of the linkage editor job step //L would be 
suppressed if the return code issued by the assembler (step C) were 
greater than 8. 

Note ; Overriding the LIST parameter effectively deletes the 
PARM=OBJECT. PARM=OBJECT must be repeated in the override statement. 

The following listing shows how to use the procedure ASMHCL (Figure 5) 
to: 

1. Read input from a non- labeled 9-track tape on unit 282 that has a 
standard blocking factor of 10. 

2. Put the output listing on a tape labeled TAPE10, with a data set name 
of PR0G1 and a blocking factor of 5. 

3. Block the SYSLIN output of the assembler and use it as input to the 
linkage editor with a blocking factor of 5. 

U. Linkage edit the module only if there are no errors in the assembler 
(COND=0) . 

5. Linkage edit onto a previously allocated and cataloged data set 
USER. LIBRARY with a member name of PROG. 



PROC=ASMHCL. x 

COND.L=(0,NE,stepname.C) 

DSNAME=PR0G1,UNIT=TAPE, X 

VOLUME=SER=TAPE10,DCB=(BLKSIZE=605) 

DCB=(BLKSIZE=800) 

UNIT=282,LABEL=(,NL), X 

DCB=(RECFM=FBS.BLKSIZE=800) 

DCB=stepname.C.SYSLIN 

DSNAME=USER.LIBRARY(PROG),DISP=OLD 



The order of appearance of overriding DDnames for job step C 
corresponds to the order of DDnames in the procedure; that is, SYSPRINT 
precedes SYSLIN within step C. The DDname C.SYSIN was placed last 
because SYSIN does not occur at all within step C. These points are 
covered in the Job Control Language Reference manual. 



//jobname 


JOB 


//stepname 


EXEC 


II 




//CSYSPRINT 


DD 


// 




//CSYSLIN 


DD 


//C.SYSIN 


DD 


// 




//L.SYSIN 


DD 


//L.SYSLMOD 


DD 


/* 




Note: The 


orde] 
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The following example shows assembly of two p^og^ai^s, linkage editing of 
the two assemblies into one load module, and execution of the load 
module. The input stream appears as follows: 



//stepnamel 


EXEC 


//CSYSLIN 


DD 


II 




II 




//C.SYSIN 


DD 



PROC=ASMHC,PARM.C-OBJECT 
DSNAME=&LOADSET,UNIT=SYSSQ, 
SPACE={80,{1 00,50)), 
DISP=(MOD,PASS),DCB={BLKSIZE=800) 



source program 1 statements 



/* 

//stepname2 
//CSYSLIN 
//C.SYSIN 



EXEC PROC=ASMHCLG 

DD DCB={BLKSIZE=800),DISP={MOD,PASS) 

DD 



source program 2 statements 
I 



//L.SYSLIN 


DD 


DCB=BLKSIZE=8C 


//L.SYSIN 


DD 


« 


/* 
//G.ddname 


ENTRY 


PROG 




dd cards for G step 



I The Job Control Language Reference manual provides additional description 
of overriding techniques. 
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Assembler Listing 



The assembler H listing consists of up to five sections, ordered as 
follows: 

• External symbol dictionary 

• Source and object program 

• Relocation dictionary 

• Symbol and literal cross reference 

• Diagnostic cross reference and assembler summary 

Figure 8 shows each section of the listing. Each item marked with a 
circled number is explained in the following section. 
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'6 ©00® 

SYHBUL IVPP 10 AOnH LENGTH LU II) 



bXTERNAL SYMBUL UlCTtONARY 



PAGE I 
ASH H V 04 IT. 29 03/16/72 



EXSYM 

ininop 

COMSECI 

EXOMY 

WRKFLDS 



PC 0001 OUOOOO 00020C 

ER oonz 

LD OOOOZi! 

CM 0003 000000 000050 

XD 0004 000003 000078 

Sn 0005 000210 000090 



■ 

PRIME SAMPLE LISTING DESCRIPTION 

® ® ® 

LCC OBJECT COOE AODRl ADORZ STMT 





SOURCE STATEMENT 





PAGE 2 

© 
ASM H V 04 17.29 03/16/72 



000006 5000 COFb 
OOOOOA OOOO )000 

IEV044 *»• EKRIIR 
OOOOOE 58")0 C202 



000022 4110 C13E 
000026 4100 C052 
00002A 58F0 1030 
00002E 05EF 



OOOOC 7 

8 

ono:)6 9 

OOOI-C 10 

00000 11 

UNDEFINbD SYMflOL 

00203 12 

13 



00144 
OOOSS 
00030 



14 

23 

24 lOLOOP 

25tIGL03P 

Zfi* 

27+ 

28* 



CSFCT 

EXfRN EXSYM 
ENTRY lOLOUP 
EQU 5 

ST>1 14,i2il2ll3) 

PALR 12i0 

USING *,12 

ST 13,SAVE*4 

LA lO.SAUE 

L K5i=A(EXSYMI 

PRINT N3CEN 

tlPEN UHnCB,,rUTDCB. 

PRINT GEN 
GET INOCB.INBUF 
LA liINUCH 

LA 0, INOUF 

L. 15,4810,11 

OALR 14,15 







LOAD PARAMETER REG 1 02-IH8IN 

LOAD PARAMETER REG 02-IHBIN 

LOAD GET ROUTINE ADDR. 01-GET 

LINK TO GET ROUTINE 01-GET 



PRIME 



POS.in REL.ID FLAGS AOORESS 



RFLDCATIlIN DICTIONARY 



PAGE 5 

ASH H V 04 17.29 03/16/72 



0001 


0001 


08 


000019 


0001 


0001 


09 


OOOOIO 


0001 


0002 


OC 


000208 


0001 


0004 


2C 


0U-JI40 



PRIME 




@ 



CROSS REFERENCE 



SYMBUL 


LEN 


VALUE 


DEFN 


REFER 


ENCES 


COMSECT 


OOOOl 


00000000 


0167 






EXDHY 


00001 


00000000 


0169 


0052 




EXSYM 


OOOOl 


00000000 


0003 


0174 




EXTNLDUMYSCTN 












00004 


000140 


0052 






INBUF 


00004 


000058 


0049 


0026 


0033 


INDCB 


00004 


000144 


0058 


0018 


0O25 


lOLOUP 


00004 


000022 


0025 


0004 


0039 


OUTBUF 


00034 


00OOA8 


0050 


0033 


0036 


OUTBUF 


OOOOl 


00000000 


0172 


♦♦♦♦OUPLICATE^^*^ 


QUTDCB 


00004 


0001A4 


0115 


0020 


0035 


R5 


OOOOl 


00000005 


0005 


0012 


0C32 


SAUE 


♦♦♦♦UNDEFINED** 


♦ ♦ 


0011 




SAVE 


00004 


ooooFa 


0051 


0010 


0041 


MRKFLDS 


OOOOl 


ooooozio 


0170 






"AIEXSYM) 












00004 


000208 


0174 


0012 





PAGE 6 
ASM H V 04 17.29 03/16/72 



DIAGNOSTIC CROSS REFERENCE AN1 ASSEMBLlR Sll".MARY 



ASM H V 04 17.29 03/16/72 











THE fCLLOHlNG STATEMENTS WERE FLAGGED 
OOOll 00172 

2 STATEMENTS FLAGGEU IN THIS ASSEMIILY 



a WAS HIGHEST SEVERITY CODE 



OVERRIDING PARAMETERS- SYSPARMI SAMPLE PROGRAM) .NODECK, BATCH 
OPTIONS FOR THIS ASSEMBLY 

NODECK, NOOBJECT, LIST, XREF(FULL), NORENT, NOTEST, BATCH, ALIGN, ESD, RLD, LINEC0UNT(55) , FLAGlOl, SYSPARHISAMPLE P 

ROGRAMI 
NO OVERRIDING 00 NAMES 



Figure 8. Assembler H Listing 
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External Symbol Dictionary (ESD) 

This section of the listing contains the external syiribcl dictionary 
information passed to the linkage editor or loader in the object module. 
The entries describe the control sections, external references, and 
entry points in the assembled program. There are six types of entry, 
shown in Figure 9 along with their associated fields. The circled 
numbers refer to the corresponding headings in the sample listing 
(Figure 8) . The Xs indicate entries accompanying each type designation. 



© 

SYMBOL 


© 

TYPE 


© 

ID 


© 

ADDR 


© 

LENGTH 


© 

LDID 


X 


SD 


X 


X 


X 


- 


X 


LD 


- 


X 


- 


X 


X 


ER 


X 


- 


- 


- 


- 


PC 


X 


X 


X 


- 


X 


CM 


X 


X 


X 


- 


X 


XD 


X 


X 


X 


_ 


)< 


WX 


X 


- 


— 


- 



Figure 9. Types of ESD Entries 

(T)The name of every external dummy section, control section, entry 
point, and external symbol. 

(2) The type designator for the entry, as shown in the table. The type 
designators are defined as: 

SD — Control section definition. The symbol appeared in the 
name field of a CSECT or START statement. 

LD — Label definition. The symbol appeared as the operand of 
an ENTRY statement. 

ER — External reference. The symbol appeared as the operand of 
an EXTRN statement, or was declared as a V-type address 
constant. 



PC — Unnamed control section definition (private cede) . A CSECT 
or START statement that commences a control section does 
not have a symbol in the name field, or a control section 
is commenced (by any instruction which affects the location 
counter) before a CSECT or START is encountered. 



CM — Common control section definition, 
the name field of a COM statement. 



The symbol appeared in 



XD — External dummy section. The symbol appeared in the name 

field of a DXD statement or a Q-type address constant. 

(The external dummy section is also called a pseudo register 
in the Loader and Linkage Editor manual. 

WX — Weak external reference. The symbol appeared as an 
operand in a WXTRN statement. 

(3) The external symbol dictionary identification number (ESDID) . The 
number is a unique four- digit hexadecimal number identifying the 
entry. It is used in combination with the LD entry of the ESD and in 
the relocation dictionary for referencing the ESD. 

®The address of the symbol (in hexadecimal notation) for SD- and 
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LD-type entries, and blanks for ER- and WX-type entries. For PC- and 
CM-type entries, it indicates the beginning address of the control 
section. For XE-type entries, it indicates the alignment by printing 
a number one less than the number of bytes in the unit of alignment. 
For example, 7 indicates doubleword alignment. 

(5) The assembled length, in bytes, of the control section (in 
hexadecimal notation) . 

(6) For an LD-type entry, the ESDID of the control section in which the 
symbol was defined- 



Source and Object Program 

This section of the listing documents the source statements and the 
resulting object program. 

(ijThe one to eight-character deck identification, if any. It is 

obtained from the name field of the first named TIILE statement. The 
assembler prints the deck identification and date (item 16) on every 
page of the listing. 

(8)The information taken from the operand field of a IITLE statement. 

(9) The listing page number. 

@ The assembled address (in hexadecimal notation) of the object code. 

• For ORG statements, the location-counter value before the ORG is 
placed in the location column and the location counter value after 
the ORG is placed in the object code field. 

• If the END statement contains an operand, the operand value 

(transfer address) appears in the location field (LOG) . 

• In the case of LOCTR, COW, CSECT, and DSECT statements, the 
location field contains the current address of these control 
sections. 

• In the case of EXTRN, WXTRN, ENTRY, and DXD instructions, the 
location field and object code field are blank. 

• For a USING statement, the location field contains the value of 
the first operand. It is four bytes long. 

• For LTORG statements, the location field contains the location 
assigned to the literal pool. 

• For an EQU statement, the location field contains the value 
assigned. It is four bytes long. 

Qj) The object code produced by the source statement. The entries are 
always left- justified. The notation is hexadecimal. Entries are 
machine instructions or assembled constants. Machine instructions 
are printed in full with a blank inserted after every four digits 
(two bytes) . Only the first eight bytes of a constant will appear in 
the listing if PRINT NODATA is in effect, unless the statement has 
continuation cards. The entire constant appears if PRINT DATA is in 
effect. (See the PRINT assembler instruction in the Assembler 
Language publication.) 
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qJ) Effective addresses (each the result of adding together a base 
register value and a displacement value) : 

The field headed ADDR1 contains the effective address for the 
first operand of an SS instruction. 

The field headed ADDR2 contains the effective address of the last 
operand of any instruction referencing storage. 

Both address fields contain six digits; however, if the high-order 
digit is a zero, it is not printed. 

@ The statement number. A plus sign (+) to the right of the number 
indicates that the statement was generated as the result of macro 
call processing. An unnumbered statement with a plus sign (+) is the 
result of open code substitution. 

@ The source program statement. The following items apply to this 
section of the listing: 

• Source statements are listed, including those brought into the 
program by the COPY assembler instruction, and including macro 
definitions submitted with the main program for assembly. Listing 
control instructions are not printed, except for PRINT, which is 
always printed. 

• Macro definitions obtained from SYSLIB are not listed unless the 
macro definition is included in the source program by means of a 
COPY statement. 

• The statements generated as the result of a macro call follow the 
macro call in the listing unless PRINT NOGEN is in effect. 

• Assembler and machine instructions in the source program that 
contain variable symbols are listed twice: as they appear in the 
source input, and with values substituted for the variable symbols. 

• All error diagnostic messages appear in line except those 
suppressed by the FLAG option. The "Assembler Diagnostics 
Facilities" section describes how error messages and MNOTEs are 
handled. 

• Literals that have not been assigned locations by LTORG statements 
appear in the listing following the END statement. Literals are 
identified by the equals sign (=) preceding them. 

• Whenever possible, a generated statement is printed in the same 
format as the corresponding macro definition (model) statement. 
The starting columns of the operation, operand, and comments 
fields are preserved unless they are displaced by field 
substitution, as shown in the following example: 

Source Statements: gC SETC 'ABCBEFGHUK' 

&C LA 1,a 
Generated Statement: ABCDEFGHIJK LA 1,4 

It is possible for a generated statement to occupy three or more 
continuation lines on the listing. In this way generated statements 
are unlike source statements, which are restricted to two 
continuation lines. 

@ The version identifier of Assembler H. 

@ The current date (date run is made) . 
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(n) The identification-sequence field from the source statement. For a 
macro-generated statement, this field contains information 
identifying the origin of the statement. The first two columns 
define the level of the macro call. 

For a library macro call, the last five columns contain the first five 
characters of the macro name. For a macro whose definition is in the 
source program (including one read by a COPY statement) , the last five 
characters contain the line number of the model stateirent in the 
definition from which the generated statement is derived. This 
information can be an important diagnostic aid in analyzing output 
resulting from macro calls within macro calls. 



Relocation Dictionary 

This section of the listing contains the relocation dictionary 
information passed to the linkage editor in the object module. The 
entries describe the address constants in the assembled program that are 
affected by relocation. 

@ The external symbol dictionary ID number assigned to the BSD entry 
for the control section in which the address constant is used as an 
operand . 

@ The external symbol dictionary ID number assigned to the ESD entry 
for the control section in which the referenced syirbol is defined. 

(^ The two-digit hexadecimal number represented by the characters in 
this field is interpreted as follows: 

• First Digit . A zero indicates that the entry describes an A-type 
or Y-type address constant. A one indicates that the entry 
describes a V-type address constant. A two indicates that the 
entry describes a Q-type address constant. A three indicates that 
the entry describes a CXD entry. 

• Second Digit . The first three bits of this digit indicate the 
length of the constant and whether the base should be added or 
subtracted: 

Bits and 1 Bit 2 Bit 3 

00 = 1 byte = + Always 

01 = 2 bytes 1 = - 
10 = 3 bytes 

11=4 bytes 

^ The assembled address of the field where the address constant is 
stored. 



Cross Reference 

This section of the listing information concerns symbols and literals 
which are defined and used in the program. 

(^ The symbols or literals. 

@ The length (in decimal notation) , in bytes, of the field represented 
by the symbol. The length of a literal is always 1. 
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^ Either the address the symbol or literal represents, or a value to 
which the symbol is equated. The value is three bytes long, except 
for the following, which are four bytes long: CSECT, DSECT, START, 
COM, DXD, EQU, LOCTR, EXTRN, WXTRN, and a duplicate symbol. 

@ The number of the statement in which the symbol or literal was 
defined. 

@ The statement numbers of statements in which the symbol or literal 
appears as an operand. In the case of a duplicate symbol or literal, 
the assembler fills this column with the message: 

* ♦♦♦DUPLICATE**** 

The following notes apply to the cross-reference section: 

• Symbols appearing in V-type address constants do net appear in the 
cross-reference listing. 

• Cross-reference entries for symbols used in a literal refer to the 
assembled literal in the literal pool. Look up the literals in the 
cross reference to find where the symbols are used. 

• A PRINT OFF listing control instruction does not affect the 
production of the cross-reference section of the listing. 

• In the case of an undefined symbol, the assembler fills fields 23, 
2H , and 25 with the message: 

♦♦♦♦UNDEFINED****. 



Diagnostic Cross Reference and Assembler Summary 

@) The statement number of each statement flagged with an error message 
or MNOTE appears in this list. The number of statements flagged and 
the highest non-zero severity code encountered is also printed. The 
highest severity code is equal to the assembler return code. 

If no errors are encountered, the following statement is printed: 

NO STATEMENTS FLAGGED IN THIS ASSEMBLY 

See the section "Error Diagnostics" for a complete discussion of how 
error messages and WNOTEs are handled. 

@) A list of the options in effect for this assembly is printed. The 
options specified by the programmer in the PARM field to override the 
assembler default options are also printed. 

@) If the assembler has been called by a problem program (See Appendix 
D) and any standard (default) DDnames have been overridden, both the 
default EEnames and the overriding DDnames are listed. Otherwise, 
this statement appears: 

NO OVERRIDING DD NAMES 
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(^ The assembler prints the number of records read from SYSIN and SYSLIB 
and the number of records written on SYSPUNCH. The assembler also 
prints the number of lines written on SYSPRINT. This is a count of 
the actual number of 121 -byte records generated by the assembler; it 
may be less than the total number of printed and blank lines 
appearing on the listing if the SPACE n assembler instruction is used. 
For a SPACE n that does not cause an eject, the asserrbler inserts n 
blank lines in the listing by generating n/3 blank 121 -byte records 
— rounded to the next lower integer if a fraction results (for 
example, for a SPACE 2, no blank records are generated) . The 
assembler does not generate a blank record to force a page eject. 
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Assembler Diagnostic Facilities 



The diagnostic facilities for Assembler H include diagnostic messages 
for assembly errors, diagnostic or explanatory messages issued by the 
source program or by macro definitions (NNOTEs),, a macro trace and dump 
facility (MHELP) , and messages and dumps issued by the assembler in case 
it terminates abnormally. 

This section briefly describes these facilities. The assembly error 
diagnostic messages and abnormal assembly termination messages are 
described in detail in the OS Assembler H Messages bock. 



Assembly Error Diagnostic Messages 

Assembler H prints miost error messages in the listing immediately 
following the statement in error. It also prints the total number of 
flagged statements and their line numbers in the Diagnostic Cross 
Reference section at the end of the listing. 

The messages do not follow the statement in error when: 

• Errors are detected during editing of macro definitions read from a 
library. A message for such an error appears after the first call in 
the source program to that macro definition. You can, however, bring 
the macro definition into the source program with a COPY statement. 
The editing error messages will then be attached to the statements in 
error. 

• Errors are detected by the lookahead function of the assembler. 

(Lookahead scans, for attribute references, statements after the one 
being assembled.) Messages for these errors appear after the 
statements in which they occur. The messages may also appear at the 
point where lookahead was called. 

• Errors are detected on conditional assem.bly statements during macro 
generation or MHELP testing. Such a message fellows the most 
recently generated statement or MHELP output statement. 

A typical error diagnostic message is: 

IEV057 ***ERROR*** UNDEFINED OPERATION CODE — xxxxx 

The term ***ERROR+** is part of the message if the severity code is 8 or 
greater. The term **WARNING** is part of the message if the severity 
code is or 4. 

A copy of a segment of the statement in error, represented above by 
xxxxx, is appended to the end of many messages. Normally this segment, 
which can be up to 16 bytes long, begins at the bad character or term. 
For some errors, however, the segment may begin after the bad character 
or term. The segment may include part of the remarks field. 

If a diagnostic message follows a statement generated by a macro 
definition, the following items may be appended to the error message: 
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• The number of the model statement in which the error occurred, or 
the first five characters of the macro name. 

• The SET symbol, parameter number, or value string associated with 
the error. 

Note: References to macro parameters are by number (such as PARAW008) 
instead of name. The first seven numbers are always assigned for the 
standard system parameters as follows: 

PARAMOOO = &SYSNDX 

PAPAM001 = gSYSECT 

PARAM002 = SSYSLOC 

PARAM003 = gSYSTIME 

PARAMO 04 = gSYSEATE 

PARAM005 = gSYSPARM 

PARAM006 = Name Field Parameter 

Then the keyword parameters are numbered in the order defined in the 
macro definition, followed by positional parameters. When there are no 
keyword parameters in the macro definition, PARAMO 07 refers to the first 
positional parameter. 

If a diagnostic message follows a conditional assembly statement in the 
source program, the following items will be appended to the error 
message: 

• The word "OPENC" 

• The SET symbol or value string associated with the error 

Several messages may be issued for a single statement cr even for a 
single error within a statement. This happens because each statement is 
usually evaluated on more than one level (for example, term level, 
expression level, and operand level) or by more than one phase of the 
assembler. Each level or phase can diagnose errors; therefore, most or 
all of the errors in the statement are flagged. Occasionally, duplicate 
error messages may occur. This is a normal result of the error 
detection process. 

Figure 10 is an example of Assembler H handling of error messages. 
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LOC OBJECT CODE AmK I ADDR2 STMT SUUKCF STATEMFNT ASH H V 01 11.51 05/20/70 

1 *»*«***********♦♦♦♦*****»***♦»****«*♦»****♦**♦***************♦•**♦♦*♦** 

2 * SAMPLE ERROR DIAGNOSTIC MESSAGES * 

3 * I.N SOURCE PROGRAM (OPEN CODE) AND GENERATED BY MACRO CALLS * 

000000 6 A CSECT 

000000 Oono OOOO OOOOO 7 STM 14tU2,l2ini 

IEV04^ *** ERROR *** UNDEFINED SYMDUL 

IEV029 *** ERROR *** INCORRECT REGISTER SPECIFICATION 

IEV179 *** ERROR *** DELIMITER ERROR, EXPECT RIGHT PARENTHESIS 

OOOOCf 05C0 8 BALR 12,0 

OOOOh 9 USING *,12 

000006 0000 0000 OOOOO 10 ST IS.SAVE+if 

IEV044 »** ERROR *** UNDEFINED SYMfjOL 

11 OPEN (CRDIN, (INPUT) .CkOOUT, (OUTPUT) 

IEV088 *** ERROR *** UNBALANCED PARENTHESES IN MACRO CALL OPERAND — OPENC/ (CRDIN, ( IN 

OOOOOA 0700 12+ CNOP O,'. Ol-OPEN 

OOOOOC 4510 COOF 00014 13+ BAL l,*+8 LOAD REGl H/LIST ADDR. Ol-OPEN 

nOOOlO 00000000 14+ DC A(0) opt byte and OCfl ADDR. Ol-OPEN 

000014 0000 0000 OOOOO 15+ ST CRDIN, ( INPUT ) ,CRDnUT ,{ OUTPUT ,0( 1 ,0 ) XOl-OPEN 

+ STORE INTO LIST 

IEV029 *** ERROR *** INCORRECT REGISTER SPECIFICATION 

IEV044 *** ERROR *** UNDEFINED SYMBOL 

IEV177 *** FRROR »*» DELIMITER ERROR, EXPECT BLANK (IR LEFT PARENTHESIS 

000018 9280 1000 OOOOO 16+ MVI 0(11,128 MOVE IN OPTION BYTE Ol-OPEN 

OOOOIC 0A13 17+ SVC 19 ISSUE OPEN SVC Ol-OPEN 

19 *«*«♦*♦***«»**♦♦♦»»♦♦»*♦♦*♦♦**#*»»♦»**♦♦***»♦♦♦***♦**♦**♦♦♦*«♦***«♦♦«* 

20 * EDITING AND GENERATION ERRORS AND MNOTES FROM A LIBRARY MACRO * 

21 f******'^**********'**************** ************************************ 

23 LOADR REG1=I0,REG2=8, CHEROKEE, CHAMP 
IEV136 **♦ ERROR *** ILLEGAL LOGICAL/RELATIONAL OPERATOR — MACRO - LOADR 

IEV083 *»* ERROR *** ARITHMETIC EXPRESSION CONTAINS ILLEGAL DELIMITER CP ENDS PREMATURELY — MACRO - LOADR 
OOOOIE 58A0 C02A 00030 24+ L 10, CHEROKEE 01-LOADR 

26 LOADR ReGl=25,REG2=8,CHER0KFE, SWIFT 

000022 0000 0000 OOOOO 2 7+ L 25, CHEROKEE 01-LOADR 

1EV029 *** ERROR *** INCORRECT REGISTER SPECIFICATION 

29 LOADR KEG2=10, CHAMP, SWIFT 

000026 5800 C0?E 00034 30+ L 0, CHAMP Ol-LOADR 

6 ********************************************************************** 

7 * SAMPLE MACRO DEFINITION RFRUN WITH EDITING ERRORS CORRECTED ♦ 

H ********************************************************************** 

10 MACRO 

11 f.NAME LOADR f.'lEGl= , £REG2= , SOPl ,(;0P2 

12 £K(1) SETA tREGl,flREG2 

13 AIF (T'CRFGl FQ 'O'I.ERR 

14 L SR(l),&OPl 

15 L tR(2),£0P2 

16 MEXIT 

17 .ERR MNOTE 36, 'YOU LEFT OUT THE FIRST REGISTER" 

18 MEND 

20 ********************************************************************** 

21 * SAMPLE MACRO CALLS WITH GENERATION ERRORS AND MNOTES * 

22 ********************************************************************** 

24 LOADR REG1=10,REG2=8, CHEROKEE, CHAMP 

OOOOOC 58A0 C004 00004 25+ L 10, CHEROKEE 01-00014 

000010 5880 C008 00008 26+ L 8, CHAMP 01-00015 

28 LOADR KEG1=25, REG2=8, CHEROKEE, tSWlFT 

IEV003 *** ERROR *** UNDECLARED VARIABLE SYMBOL. DEFAULTED, NULL, OR TYPE=U — OPFNC/SWIFT 

000014 0000 0000 OOOOO 29+ L 25, CHEROKEE 01-00014 

IEV029 **♦ ERROR *♦* INCORRECT REGISTER SPECIFICATION 

000018 0000 0000 OOOOO 30+ L 8, 01-00015 

IEV074 ♦** ERROR *** ILLEGAL SYNTAX IN EXPRESSION 

32 LOADR REG2=8, CHAMP, SWIFT 

IFV254 ♦** MNOTE *** 33+ 36, YOU LEFT OUT THE FIRST REGISTER 01-00017 

34 END 



Figure 10. Sample Error Diagnostic Messages 
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MNOTEs 

An MNOTE Statement is included in a macro definition or in the source 
program. It causes the assembler to generate an inline error or 
informational message. 

An MNOTE appears in the listing as follows: 

IEV254 ***MNOTE*** severity code, message 

Unless it has a severity code of * or the severity code is omitted, the 
statement number or the MNOTE is listed in the diagnostic cross 
reference. 



Suppression of Elnor Messages and MNOTEs 

Error messages and MNOTEs below a specified severity level can be 
optionally suppressed by declaring in the EXEC s.tatement: 
PARM='FLAG (n) * (where "n" is the selected severity level) . 



Abnormal Assembly Termination 

Whenever the assembly cannot be completed. Assembler H provides a 
message and, in some cases, a specially formatted dump for diagnostic 
information. This may indicate an assembler malfunction cr it may 
indicate a programmer error. The statement causing the error is 
identified and, if possible, the assembly listing up to the point of the 
error is printed. The OS Assembler H Messages book, describes the 
abnormal termination messages. The messages give enough information to 
(1) correct the error and reassemble your program, or (2) determine that 
the error is an assembler malfunction. 

The CS Assembler H Logic manual, gives a complete explanation of the 
format and contents of the abnormal termination dump. 



Macro Trace Facility (MHELP) 

The MHELP instruction controls a set of trace and dump facilities. 
Options are selected by an absolute expression in the MHELP operand 
field. MHELP statements can occur anywhere in open cede or in macro 
definitions. MHELP options remain in effect continuously until 
superseded by another MHELP statement. Appendix B is a sample MHELP 
trace and dump. 



Macro Call Trace 

(MHELP B'V or MHELP 1) . This option provides a one-line trace for each 
macro call, giving the name of the called macro, its nested depth, and 
its &SYSNEX (total number of macro calls) value. 

Note ; This trace is provided upon entry into the macro. No trace is 
provided if error conditions prevent entry into the macro. 
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Macro Branch Trace 

(MHELP B*10*, or MHELP 2). This option provides a one- line trace for 
each AGO and true AIF conditional- assembly statement within a macro. It 
gives the model- statement niambers of the "branched from" and "branched 
to" statements, and the name of the macro in which the branch occurs. 
This trace option is suppressed for library macros. 



Macro Entry Dump 

(MHELP B* 10000*, or MHELP 16) , This option dumps parameter values from 
the macro dictionary when the macro is called. 



Macro Exit Dump 

(MHELP B* 10000', or MHELP 8). This option dumps SET symbol values from 
the macro dictionary upon encountering a MEND or MEXIT statement. 



Macro AIF Dum p 

(MHELP BMOO", or MHELP U) . This option dumps SET symbol values from 
the macro dictionary immediately before each AIF statement that is 
encountered . 



Global Suppression 

(MHELP B* 100000*, or MHELP 32). This option suppresses global SET 
symbols in the two preceding options, MHELP 4 and MHELP 8. 



MHELP Suppression 

(MHELP B" 10000000*, or MHELP 128). This option suppresses all currently 
active MHELP options. 



Combining Options 

Multiple options can be obtained by combining the option codes in one 
MHELP operand. For example, call and branch traces can be invoked by 
MHELP B*11*, MHELP 2+1, or MHELP 3. 
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WHELP Control on 6SYSNDX 



The MHELP operand field is actually mapped into a full word. Previously 
defined MHELP codes correspond to the fourth byte of this fullword. 

SSYSNDX control is turned on by any bit in the third byte (operand 
values 256-65535 inclusive) . Then, when gSYSNDX (total number of macro 
calls) exceeds the value of the fullword which contains the MHELP 
operand value, control is forced to stay at the open-cede level, by in 
effect making every statement in a macro behave like a MEXIT. Open code 
macro calls are honored, but with an immediate exit back to open code. 



Examples: 



MHELP 


256 


Limit &SYSNDX to 256. 


MHELP 


1 


Trace macro calls. 


MHELP 


256+1 


Trace calls and limit &SYSNDX to 257. 


MHELP 


65536 


No effect. No bits in bytes 3,4. 


MHELP 


65792 


Limit &SYSNDX to 65792. 



When the value of SSYSNEX reaches its limit, the message "ACTR EXCEEDED 
~ SSYSNDX" is issued. 
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Programming Considerations 



This section discusses some topics in assembler language programming, 



Saving and Restoring General Register Contents 

A problem program should save the values contained in the general 
registers upon commencing execution and, upon completion, restore to the 
general registers these same values. Thus, as control is passed from 
the operating system to a problem program and, in turn, to a subprogram, 
the status of the registers used by each program is preserved. This is 
done through use of the SAVE and RETURN system macro instructions. 

The SAVE macro instruction should be the first statement in the program. 
It stores the contents of registers 14, 15, and through 12 in an area 
provided by the program that passes control. When a problem program is 
given control, register 13 contains the address of an area in which the 
general contents should be saved. 

If the program calls any subprograms, or uses any operating system 
services other than GETWAIN, FREEMAIN, ATTACH, and XCTL, it must first 
save the contents of register 13 and then load the address of an 
18-fullword save area into register 13. This save area is in the 
problem program and is used by any subprograms or Operating System 
services called by the problem program. 

At completion, the problem program restores the contents of general 
registers 14, 15, and 0-12 by use of the RETURN system macro instruction 
(which also indicates program completion) . The contents of register 13 
must be restored before execution of the RETURN macro instruction. 

The coding sequence that follows illustrates the basic process of saving 
and restoring the contents of the registers. A complete discussion of 
the SAVE and RETURN macro instructions and the saving and restoring of 
registers is contained in the Supervisor Services and Macro Instructions 
publication. 



Name 


Operation 


Operand 


BEGIN 
SAVEBLK 


SAVE 

ST 
LA 

L 

RETURN 

DC 


(14,12) 

set up base register 

13,SAVEBLK+4 
13.SAVEBLK 

13,SAVEBLK+4 

(14,12) 

ISF'O' 
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Program Termination 

You indicate completion of an assembler language source program by using 
the RETURN system macro instruction to pass control from the terminating 
program to the program that initiated it. The initiating program may be 
the Operating System or, if a subprogram issued the RETURN, the program 
that called the subprogram. 

In addition to indicating program completion and restoring register 
contents , the RETURN macro instruction may also pass a return code — a 
condition indicator that may be used by the program receiving control. 
If the return is to the operating system, the return code is compared 
against the condition stated in the COND= parameter of the JOB or EXEC 
statement. If return is to another problem program, the return code is 
available in general register 15, and may be used as desired. Your 
program should restore register 13 before issuing the RETURN macro 
instruction. 

The RETURN system macro instruction is discussed in detail in 
I Supervisor Services and Macro Instructions . 



FARM Field Access 



Access to information in the FARM field of and EXEC statement is gained 
through general register 1 . When control is given to the problem 
program, general register 1 contains the address of a fullvjord which, in 
turn, contains the address of the data area containing the information. 

The data area consists of a halfword containing the count (in binary) of 
the number of information characters, followed by the information field. 
The inforiration field is aligned to a fullword boundary. The following 
diagram illustrates this process: 

General Register 1 







Address of Fullword 




Points 
to 






Fullword 




Address of Data Area 








Points 
to 








Data Area 




Count in Binary 


Information Field 











Macro Definition Librcuy Additions 

Source statement coding, to be retrieved by the COPY assembler 
instruction, and macro definitions may be added to the macro library. 
The lEBUPETE utility program is used for this purpose. Details of this 
program and its control statements are contained in the Utilities 
publication. The following sequence of job control statements can be 
used to call the utility program and identify the needed data sets. It 
is assumed that the job control statements, lEBUPDTE program control 
statements, and data are to enter the system via the input stream. 
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//jobname JOE 

//stepnaire EXEC PGM=IEBUPDTE,PARiy!=MOD 

//SYSUT1 EE ESNAME=SYS1.MACLIB,DISP=0LD 

//SYSUT2 EE ESNAME=SYS1.MACLIB,EISP=0LD 

//SYSPRINT EE SYSOUT=A 

//SYSIN DD * 



lEEUPETE control statements and source statements cr 
macro definitions to be added to the macro library 
(SYS1.MACLIB) 



/* (delimiter statement) 



Load Module Modification - Entry Point Restatement 

If the editing functions of the linkage editor are to be used to modify 
a load module, the entry point to the load module must be restated when 
the load module is reprocessed by the linkage editor. Otherwise, the 
first byte of the first control section processed by the linkage editor 
will becom.e the entry point. To enable restatement of the original 
entry point, or designation of a new entry point, the entry point must 
have been identified originally as an external symbol; that is, it must 
have appeared as an entry in the external symbol dictionary. External 
symbol identification is done automatically by the assembler if the 
entry point is the name of a control section or S1ART statement; 
otherwise, an assembler ENTRY statement must be used tc identify the 
entry point name as an external symbol. 

When a new object module is added to or replaces part of the load 
module, the entry point is restated in one of three ways: 

• By placing the entry point symbol in the operand field of an EXTRN 
statement and an ENE statement in the new object mcdule. 

• By using an END statement in the new object module to designate a new 
entry point in the new object module. 

• By using a linkage editor ENTRY statement to designate either the 
original entry point or a new entry point for the load module. 

Further discussion of load module entry points is contained in the 
Loader and Linkage Editor publication. 



Object Module Linkage 

Object modules, whether generated by the assembler or another language 
processor, may be combined by the linkage editor to produce a composite 
load module, provided each object module conforms to the data formats 
and linkage conventions required. This topic discusses the use of the 
CALL system macro instruction to linkage an assembler language main 
program to subprograms produced by another processor. The Supervisor 
Services and Macro Instructions publication, contains additional details 
concerning linkage conventions and the CALL system macro instruction. 
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Figure 11 is an exainple of statements used tc establish the assembler 
language program linkage to FORTRAN and COBOL subprograms. 

If any input/output operations are performed by called subprograms, 
appropriate EE statements for the data sets used by the subprograms must 
be supplied. See the appropriate language prograirmer 's guide for an 
explanation of the DD statements and special data set record formats 
used for the processor. 
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ENTRPT SAVE 


(14,12) 


LR 


12,15 


USING 


ENTRPT,12 


ST 


13,SVAREA+4 


LA 


15,SVAREA 


ST 


15,8(13) 


LR 


13,15 



CALL name.(V1,V2,V3),VL 







L 


13,SVAREA+4 






RETURN (14,12) 


3 


SVAREA DC 


18F'0' 


4 


VI 


DC 


(data) 


b 


V2 


DC 


(data) 


b 


V3 


DC 
END 


(data) 



^ This is an example of OS linkage convention. See the Supervisor Services and Macro Instructions for 
details. 

2 

The symbol used for "name" in this statement is: 

a. The name of a subroutine or function, when the linkage is to a FORTRAN-written subprogram. 

b. The name defined by the following COBOL statements in the procedure division: 

ENTER LINKAGE. ENTRY'name'. 

c. The name of a CSECT or START statement, or a name used in the operand field of an ENTRY statement in an 
assembler-language subprogram. 

The order in which the parameter list is written must reflect the order in which the called subprogram expects the 
argument. If the called routine is a FORTRAN-written function, the returned argument is not in the parameter list: a 
real or double precision function returns the value in floating point register zero; an integer function returns the value 
in general purpose register zero. 

NOTE: When linking to FORTRAN-written subprograms, consideration must be given to the storage requirements 
of IBCOM (FORTRAN execution-time I/O and interrupt handling routines) which accompanies the compiled FORTRAN 
subprogram. In some instances the call for IBCOM is not automatically generated during the FORTRAN ompilation. 
The FORTRAN IV Library publication. Order Number GC28-6596, provides information about IBCOM requirements and 
assembler statements used to call IBCOM. 

FORTRAN-written subprograms and FORTRAN library subprograms allow variable-length parameter lists in linkages 
which call them; therefore all linkages to FORTRAN subprograms are required to have the high-order bit in the last 
parameter in the linkage set to 1 . COBOL-written subprograms have fixed-length calling linkages; therefore, for COBOL 
the high-order bit in the last parameter need not be set to 1. 

o 

This statement reserves the save area needed by the called subprogram. When control is passed to the subprogram, 
register 13 contains the address of this area. 

A R R 

'^' When linking to a FORTRAN or COBOL subprogram, the data formats declared in these statements are determined 
by the data formats required by the FORTRAN or COBOL subprograms. 



Figure 11. Sample Assembler Linkage Statements for FORTRAN 
or COBOL Subprograms 
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Special CPU Progzamming Considerations 

You should be aware of operational differences between the Model 85, 
Model 91, and Model 195 and other System/360 models. The primary 
differences are: 

• Non- sequential instruction execution — 91 and 195 

• Extended precision machine instructions — 85 and 19 5 

• Unaligned operands — 85 and 195 



CONTROLLING INSTRUCTION EXECUTION SEQUENCE 

The Model 91 and Model 195 maintain a logical consistency with respect 
to their own operations, including the beginning and ending of I/C 
operations, but they do not assume responsibility for such consistency 
in the operations performed by asynchronous units. Consequently, for 
any asynchronous unit that depends upon a strict adherence to sequential 
(or serial) execution, a problem program must set up its own procedures 
to ensure the proper instruction sequence. 

For a program section that requires the serial or sequential execution 
of instructions, the following 'no- operation* instruction: 

BCR N,0 N=1,15 

causes instruction decoding to halt until the instructions that have 
already been decoded are executed. (This action is called a pipe-line 
drain.) On the Model 91 and Model 195, this instruction ensures that all 
the instructions preceding it are executed before the instruction 
succeeding it is decoded. Use of this instruction should be minimized, 
because it may affect the performance of the CPU. 

Isolating an instruction by preceding it and following it with a BCR N,0 
instruction eliminates multiple imprecise interruptions from more than 
one instruction by virtue of the pipe-line drain effect. However, 
because multiple exceptions may occur in one instruction, this technique 
does not eliminate a multiple imprecise interruption, nor does it change 
an imprecise interruption into a precise interruption. The use of the 
BCR instruction does not assure you that you can fix up an error 
situation. In general, the only information available will be the 
address of the BCR instruction. The length of the instruction preceding 
the BCR instruction is not recorded, and generally there is no way to 
determine what that instruction is. 

Note : BCR 0,0 does not cause a pipe- line drain. 



EXTENDED- PRECIS ION MACHINE INSTRUCTIONS 

The extended- precision arithmetic instructions and the rounding 
instructions of the Model 85 and the Model 195 are shown below. A 
complete description of these instructions Is in the IBM Svstem/360 
Principles of Operation . 
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Name 


Mnemonic 


Type 


Op Code 


ADD NORMALIZED (extended operands, extended result) 


AXR 


RR 


36 


SUBTRACT NORMALIZED (extended operands, extended result) 


SXR 


RR 


37 


MULTIPLY (extended operands, extended result) 


MXR 


RR 


26 


MULTIPLY (long operands, extended result) 


MXDR 


RR 


27 


MULTIPLY (long operands, extended result) 


MXD 


RX 


67 


LOAD ROUNDED (extended to long) 


LRDR 


RR 


25 


LOAD ROUNDED (long to short) 


LRER 


RR 
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A program containing the extended-precision instructions cannot be 
executed successfully on another Systeni/360 model unless those 
instructions are converted into others that can be executed by the 
non-Model 85 or Model 195 machine. The OPSYN assembler instruction 
helps provide a facility for doing this. 

OPSYN is described in the OS Assembler H Language Specifications manual 
I or, for VS, in the Assembler Language manual. 

A type L DC instruction can be used to specify an extended-precision 
(16-byte) floating-point constant. The DC instruction is described in 
the Assembler Language manual. 



UNALIGNED (EYTE-ORIENTED) OPERANDS 

The Model 85 and Model 195 will execute unprivileged RX and RS format 
instructions with fixed-point, floating-point, or logical operands that 
are not on integral boundaries. Assembly of such instructions normally 
produces the diagnostic message "lEVOSS ALIGNMENT ERROR*. A PARM option 
I in the EXEC statement, ALIGN or NOALIGN, makes it possible to suppress 
the message and thereby obtain a clean assembly listing. The object 
code is not affected. 

Note that an assembled program that requires use of the Model 85 and 
Model 195 byte-oriented operand feature cannot be run en another 
machine, nor can it run successfully under the Operating System if it 
violates any alignment restrictions imposed by the Operating System. 
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Appendix A. Sample Program 



The sample prcgram included with Assembler H when it is received from 
IBM is described in this appendix. This program demonstrates some basic 
assembler language, macro, and conditional asseirbly features, most of 
which are unique to Assembler H. The circled letters in the description 
below refer to corresponding letters in the listing that follows the 
description. 



(a) The job control language for the assembly consists of the 

lEW- supplied cataloged procedure ASMHC and the statements needed to 
use the procedure and supply input to the assembler. Note that three 
of the default FARM options are overridden in the EXEC statement that 
calls the procedure. 

I By using the BATCH (multiple assembly) option, this sample program, 
the sample program in Appendix B, and the listings in Figure 8 and 
Figure 10 were assembled with one set of JCL cards. Object modules 
were not punched f cr any of the assemblies because the NODECK option 
is specified. The character string specified in the SYSPARt^ option 
is available to each assembly. The character string is displayed in 
this program by using the system variable symbol g£YSPAR^3 (statement 

iaa) . 

(b) The External Symbol Dictionary shows a named common statement. The 
named common section is defined in statement 158. 

(c) Statement 10: S^ve the current status of the PRINT statement 

(ON,NOEATA,GEN) . 

Statement 11: Leave ON in effect, modify the other two options to 

DATA,NOGEN. 

Statement 12: Macro call; note that the expansion (statement 10) is 
not printed. 

Statement 14: All 28 bytes of data are displayed to the two-operand 
DC. 

Statement 15: Restore prior status of PRINT. 

Statements 17 and 18: The generated output of the macro WTO is shown 
and only the first 8 bytes of data are displayed. 

(d) Statements 14 and 18: Multiple constants are allowed in hexadecimal 
and binary DC operands, and neither symbol in the duplication factor 
has been defined yet. Definition occurs in statements 108 and 109. 

(e) Statements 26, 28, 136, and 155 illustrate use of the LOCTR assembler 
instruction. This feature allows one to break control sections down 
into sub-control sections. It may be used in CSECT, DSECT, and COI^- 
LCCTR has many of the features of a control section; for example, 
all of the first LOCTR in a section is assigned space, then the 
second, and so on. The name of the control section automatically 
names the first LOCTR section. Thus LOCTR A is begun, or resumed, at 
statements 2, 28, and 155. Note that the location counter value 
shown each time is the resumed value of the LOCTR. On the other 
hand, various LOCTR sections within a control section have common 
addressing as far as USING statements are concerned, subject to the 
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computed displacement falling within through U095. In the sample, 
CONSTANT is in LOCTR DEECEES but the instruction referencing it 
(statement 25) has no addressing problems. 

(f) Three-operand EQU. Here, we are assigning: (a) the value of B5 (not 
yet defined) to A8 , (b) the length attribute of A5 to A8, and (c) the 
type attribute of A7 to A8. If no operand is present in an EQU 
statement, the type attribute is U and the length attribute is that 
of the first term in the operand expression. Symbols present in the 
label and/cr operand field must be previously defined. Note that it 
is not possible to express the type attribute of A7 directly in the 
EQU statement. The EQU statement at 38 could have been written 

A8 EQU B5,2,C'L' 

A8 EQU B5,X*2« ,X*D3' 

(g) Set symbols 6LA8 and 6TA8 have not been declared in a LCL or GBL 
statement prior to their use here. Therefore, they are defaulted to 
local variable symbols, as follows: €LA8 is a LCLA SET symbol 
because it appears in the name field of a SETA; gTA8 is a LCLC SET 
symbol because it is first used in a SETC. 

(h) MNOTE may appear in open code. As such, they have all properties of 
MNOTEs inside macros, including substitution. 

(l) A SETC expression may have a duplication factor. The SETA expression 
must be enclosed in parentheses and immediately precede the character 
string, the substring notation, or the type attribute reference. 

(j) Statements 57-60 illustrate U-byte self-defining values and unary + 
and -. The value of X will appear later in a literal address 
constant (see statement 162) . 

(k) The programmer macro DEMO is defined well after the start of the 
assem,bly. Macros can te defined at any point and, having been 
defined and/or expanded, can be redefined. Note that the parameters 
on the prototype are a mixture of keywords and positional operands. 
6SYSLIST may be used. The positional parameters are identified and 
numbered 1, 2, 3 from left to right; keywords are skipped over. 

(l) Statement 70 illustrates the extended SET feature (as well as 

implicit declaration of gL0C(1) as a LCLC). Both SLOC (1) and gLOC (2) 
are assigned values. One SETA, SETB, or SETC statement can then do 
the work of many. 

(m) Statement 72 is a model statement with a symbolic parameter in its 
operation field. This statement will be edited as if it is a macro 
call; at this time, each operand will be denoted as positional or 
keyword. At macro call time, it will not be possible to reverse this 
decision. Even though treated as a macro, it is still expanded as a 
machine or assembler operation. 

(n) Statement 7U illustrates the computed AGO statement. Control will 
pass to .MN0TE1 if &KEY2 is 1, to .MN0TE2 if &KEY2 is 2, to .MN0TE3 
if gKEY2 is 3 or will fall through to the model statement at 75 
otherwise. 

(g) Statement 77 illustrates the extended AIF facility. This statement 
is written in the alternate format. The logical expressions are 
examined from left to right. Control passes to the sequence symbol 
corresponding to the first true expression encountered, else falls 
through to the next model statement. 

(p) Statement 87 contains a subscripted created SET symbol in the name 
HO 



field. Exclusive of the subscript notation, these SET symbols have 
the form g (e) where e is an expression made up of character strings 
and/or variable symbols. When such a symbol is encountered at 
expansion time, the assembler evaluates e and attempts to use 
& (value) in place of S (e) . Looking ahead, we see that CEMO is used 
as a macro instruction in statement 97 and SKEY1=C. Thus, the 'e' in 
this case is XSKEY1 which has the value XC. Finally, the 
macro-generator will use gXC(2) as the name field of this model 
statement. In statement 108, note that SXC (2) equals TRANSYLVANIA 
(statement 96) . Finally, in the sequence field of statement 108, we 
see that this statement is a level 01 expansion of a programmer macro 
and the corresponding model statement is statement number 87. 

Created SET symbols may be used wherever regular SET symbols are used 
in declarations, name fields or operands cf SET statements, in model 
statements, etc. Likewise, they are subject to all the restrictions 
of regular SET symbols. In the programmer macro DEMO, it would not 
have been valid to have the statement GBLC g (XSKEY1) (1) because, in 
statement 71, SXA, 6XB, and gXC are declared as global variable 
symbols and g (XgKEYl) (2) becomes gXC (2) unless, of course, gKEYl was 
assigned something other than the value A, B, or C in the macro 
instruction DEMO, statement 97. In that case, we would need a global 
declaration statement if we wanted g (XgKEYl) to be a global SET 
symbol. Because global declarations are processed at generation time 
and then only if the statement is encountered, we would insert the 
following statements between, say, statements 71 and 72. 

AIF ('gKEYl' EQ 'A' OR ' gKEYl ' EQ ' E' OR 'gKEYl' EQ 'C'). 
GELC g (XgKEYl) (1) 
.SKIP ANOP 

As the macro is defined, g (XgKEYl) will be a global SETC if gKEYl is 
A, B, or C; otherwise it will be a LCLC or, possibly, a LCLA. In the 
macro, if g (XgKEYl) becomes a local, it will have a null or zero 
value. 

(Q) In statements 93 and 94, note that gXA is declared as a subscripted 
global SETC variable with a maximum subscript of 1 and, in the next 
statement (an extended SET statement) , we store something into gXA (2) . 
There is no contradiction here. The statement GBLC gXA (1) marks gXA 
as a subscripted global SETC symbol. Any decimal self-defined number 
(1 through 2147U83647) can be used. Furthermore, only a nominal 
amount of space is set aside in the global dictionary — this space 
is open-ended and will be increased on demand and only on demand. 

(r) Statement 97 is the macro instruction DEMO. Note that gPl has the 
value WRITE. Therefore, the model statement at statement 72 becomes 
an inner macro, WRITE, producing the code at statements 98-103. The 
sequence field of these statements contains 03-IHBRD, indicating that 
they are generated by a level 03 macro (DEMO is 01, WRITE is 02) 
named IHEREWRS. It is an inner macro called by WRITE. 

(s) Statements 108 and 109 contain some ordinary symbols longer than 
eight characters. The limit for ordinary symbols, operation codes 
(for programmer and library macros and op codes defined through 
OPSYN) , variable symbols, and sequence symbols is sixty-three 
characters (including the g and . in the latter twc instances, 
respectively) . Most long symbols will probably be nearer to eight 
than sixty- three characters in length. Extremely long symbols are 
simply too difficult to write, especially if the symbol is used 
frequently. The requirement that the operation field be present in 
the first statemient of a continued statement is still in effect. 
I Furthermore, names of START, CSECT, EXTRN, WXTRN, ENTRY, etc. symbols 
are still restricted to eight characters. 
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(t) Library rracros may be inserted into the source stream as programmer 
macros by use of a COPY statement. The result (statements 118-126) 
is essentially a programmer macro definition. When a library macro 
is brought in and expanded by use of a macro instruction, the 
assembler (1) looks the macro up by its member-naire and (2) verifies 
that this same name is used in the operation field cf the prototype 
statement. Therefore, for example, DCE has to be catalogued as DCB- 
However, as COPY code, the member name bears no relationship to any 
of the statements in the member. Thus, several variations of a given 
macro could be stored as a library under separate names, then copied 
in at various places in a single assembly as needed. (Assembler H 
allows ycu to define and redefine a macro any number of times) - 

(u) In statement 129, MARK is made a synonym for NOTE. Tc identify NOTE 
as a macro, it has to be used as either a system macro call (that is, 
from a macro library) or a programmer macro definition prior to its 
use in the operand field of an OPSYN statement. The COPY code at 
118-126 is a programm.er macro definition. The macro instruction at 
statement 130 is MARK. We can use MARK and NOTE interchangeably. If 
desired, we could remove NOTE as a macro definition in the following 
way: 



MARK 
NOTE 



OPSYN 
OPSYN 



NOTE 



® 

® 
® 



We could then refer to the macro only as MARK. 

Statement 144 demonstrates gSYSTIME, gSYSDATE and &SYSPARM. The 
values for the first two are the same as we use on the heading line. 
The value for gSYSPARM is the value passed in the PARM field of the 
EXEC statement or the default value assigned to &SYSPARM when 
Assembler H is installed. 

System variable symbols SSYSLOC and 6SYSECT are displayed. The 
sequence field indicates that the model statements are statements 148 
and 149. 



Illustration of named COMMON, 
named COMMON section with : 



You can establish addressability for a 



USING 



section- name, register 



You can address data in a blank COMMON section by labelling a 
statement after the COMMON statement and using relative addressing. 

(y) If there are literals outstanding when the END statement is 

encountered, they are assigned to the LOCTR currently in effect for 
the first control section in the assembly. This may or may not put 
the literals at the end of the first control section. In this sample 
assembly, the first control section. A, has twc LOCTRs, A and DEECEES. 
Because A is active (at statement 155), the literals are assembled 
there. You always have the ability to control placement of literal 
pools by means of the LTORG statement. Note that X'FFFFFFES* is used 
for the contents of A (A5 ,X) , statement 162. The symbol X was 
assigned the value (4*-6) by an EQU in statement 60. 
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® 



//HPGEXAMP JOB 932100i BERGQUIST ,MSGLEVEL = lf .iSGCLASS'O 

// EXEC ASMHC,PARM=»SYSPARM(SAHPLE PROGRAM J ..^JODECK, BATCH' 

*♦* ^100 H ASSEMBLER GROUP -02/15/71- 

XXC EXEC PGH=IEV90iPARH='NOLaAO,NODECK«,REGION=180K 

//STEPLIB DD DSN=ASH.VO'f 

X/STEPLIB DO 0SN=ASM.E03tOISP=SHR 

// DD DSN=ASH.V03,DISP=SHR 

XXSYSLIB DD DSN = SYS1.HACLIB ,01 SP«=SHR 

XXSYSUTl DD UNIT=2314,SPACE=(CYL, (lOi 51 ) , DSN=aSYSUTl ,DCB=(BLK$I ZE=3520» 

XXSYSPUNCH DD SYSGUT=B,DCB=BLKSI ZE=803 , SPACE=(CYL, (5 ,5 ,0) ) 

//SYSPfiINT DD SYSOUT=(0,COPY1»,DCB=BLKSIZ£=3509 

X/SYSPRINT DD SYS0UT=A,0CB=BLKSIZE=3509 

//SYSIN DD ♦ GENERATED STATEMENT 

IEF236I ALLOC. FOR HPGEXAMP C 

1EF237I 231 ALLOCATED TO STEPLIB 

IEF237I 231 ALLOCATED TO 

IEF237I 237 ALLOCATED TO SYSLIB 

1EF237I 137 ALLOCATED TO SYSUTl 

IEF237I 335 ALLOCATED TO SYSPUNCH 

IEF237I 336 ALLOCATED TO SYSPRINT 

IEF237I 235 ALLOCATED TO SYSIN 



00000100 
0CC00200 



00000400 
00000500 
0000C600 



EXTERNAL SYMBOL DICTIONARY 



SYMBOL TYPE ID ADDR LENGTH LD ID 



ASM H V 04 17.29 03/16/72 



(b) PD2 



SD 0001 000000 OCOOOC 
CM 0002 000000 0C07D2 
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eiGNAME SAMPLE PROGRAM. 1ST TITLE STATEMENT HAS NO NAME, 2ND ONE DOES 



LOC OBJECT CODE ADDRl 
000000 



ADDR2 ST1T SOURCE STATEMENT 
00000 



2 A 
3 



CSECT 

USING *,8 



ASM H V 04 17.29 03/16/72 



00020000 
00030000 



© 



C00002 01230ABC0102030A 
COOOOA OBOC0102030AOBOC 
000012 O1O203OAOB0C01O2 
OOOOIA O3CA0BOC 



OOOOIE 0A23 

000020 01230A6C0102030A 



00003C 5850 8098 

000098 

000098 00000005 

000040 



000040 1812 

000042 000000000000 
C00048 413243F6A8885A30 
00C050 3380313198A2E037 



(D 



© 



5 ^^:titftit,^iif^fif:tir:tfif>if:t'***********«'**:#*************************************** 00050000 



6 * PUSH AND POP STATEMENTS 

7 * PUSH DOWN THE PRINT STATEMENT, REPLACE IT, RETRIEVE ORIGINAL 



00060000 
00070000 



8 4,^ t'************************* **:*** ********«*************************:*** 00080000 



10 PUSH PRINT SAVE DEFAULT SETTING • PRINT ON, NODATA,GEN' 00100000 

11 PRINT NOGEN,DATA 00110000 
^~. 12 WTO HF=(E,(1)) EXPANSION NOT SHOWN 00120000 
(D) 14 DC X'123, ABC, (REALLYLONGSYMbOL-TRANSYLVANIAIB'l, 10, 11, 1010, 1011, 1100' 00130000 



15 POP PRINT RESTORE DEFAULT PRINT SETTING 

16 WTO HF=IE,(1)) EXPANSION SHOWN 
17* SVC 35 ISSUE SVC 

18 DC Xil23,ABC',(REALLYL0NGSYMBaL-TRANSYLVANIA)B'l,10,ll,1010,1011,1100' 

21 * LOCTR INSTRUCTION * 

22 * LOCTR ALLOWS 'REMOTE' ASSEMBLY OF CONSTANT * 

25 L 5, CONSTANT 

26 DEECEES LOCTR 

27 CONSTANT DC F'5' CONSTANT CODED HERE, ASSEMBLED BEHIND LOCTR A 

28 A LOCTR RETURN TO 1ST LOCTR IN CSECT A 

31 * 3 OPERAND EQUATE WITH FORWARD REFERENCE IN 1ST OPERAND * 

32 *♦*♦***♦♦*♦♦*♦********♦♦♦****♦♦♦»*♦****♦*♦****♦******♦****♦*♦****♦***♦ 



34 A5 
35 



LR 1,2 

PRINT DATA 



L'A5 = 2, T'A5 



36 AT DC L'3.14159?6535897932384626433832795028841972« L'A7 = 16,T'A7 

37 tTYPE SETC T'A7 

38 A8 EOU B5,L'A5,C'£TYPE' 
+A8 EQU B5,L'A5,C'L' 



00140000 
00150000 
01-WTO 
00160000 

00180000 
00190000 
00200000 
00210000 

00230000 
00240000 
00250000 
00260000 

00280000 
00290000 
00300000 

00320000 
00330000 



00350000 
00360000 
00360000 



au 



BIGNAME SAMPLE PROGRAM. 1ST TITLE STATEMENT HAS NO NAME, 2ND CNE DOES 



LOG OBJECT CODE 



AODRl ADDR2 STMT SOURCE STATEMENT 



ASM H V 04 17.29 03/16/7^ 



000058 7FFFFFFFC1C2C3C4 
C00060 FFFFFFFF 
000064 181D 



© 
© 

© 



© 



40 ******************'if**********inr********i^******-*m*****************m**** 00360000 

41 * IMPLICIT DECLARATION OF LOCALS tA, tC — USE OF SETC OUP FACTOR TO * 00390000 

42 * PRODUCE SETC STRING LONGER THAN 8, MNOTE IN OPEN CODE • 00400000 

43 :*1n^*^:^*^^^^^^^^^*^^:^L^^*:|^^^i^*4^****^^***•^********^"l^#***'^********•******^^>^*■***** 00410000 

45 tLA8 SETA L'A8 00430000 

46 CTAS SETC T" A8 00440000 

47 MNOTE *, 'LENGTH OF A8 = tLA8, TYPE OF AS = .tTA8' 00450000 
+*, LENGTH OF A8 = 2, TYPE OF A8 = L 00450000 

49 £A SETA 2 C0470000 

50 £C SETC (£A+3) 'STRING,' 00480000 

51 MNOTE *,'{1£C HAS VALUE = &C' 00490000 
+*,£C HAS VALUE = STRI NG ,STRI NG ,STRI NG .STRING, STRING, 00490000 

53 m:f*************:******'inf*****'**'if*****^**********m****^******m*if***m***** 005 lOOOC 

54 * EXAMPLES OF 4 BYTE SELF-DEFINED TERMS, UNARY ♦AND - * 00520000 

55 if^i^^L^:i,^*^:)f^^t:^::^:(fXHf:tf**********'******************m*******'l'************:>:* 00530000 

A(2147483647, C ABCD' ,X' FFFFFFFF' ) 00550000 

-l+2,16+-3 00560000 

4*-6 00580000 





57 


DC 




58 


LR 


FFFFFFE8 


60 X 


EQU 
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BIGNAME INSERT PROGRAMMER MACRO IN SOURCE STREAM NOW 



LOC OBoECT CODE 



ADDRI AD0R2 STMT SOURCE STATEMENT 



ASH H V 04 17.29 03/16/72 



© 
© 

© 



© 



62 ********************************************************************** 00600000 

63 * MIXED KEYMORDS AND POSITIONAL PARAMETERSt EXTENDED AGO AND AIF * 00610000 

64 * STATEMENTS. DECLARATION AND USE OF SUBSCRIPTED SET SYMBOLS, * 00620000 

65 * USE OF CREATED SET SYMBOLS, EXTENDED SET STATEMENTS * 00630000 

66 ********************************************************************** 00640000 

C06600O0 

£Pl,£KEYl=A,&P2,tKEY2=l,6P3,tKEY3=3,&P4 00670000 

■2', '3' £LOC IS DIMENSIONED LCLC BY DEFAULT 00680000 

&XA(5) ,&XB(20) ,&XC(1I 00690000 

eSYSLIST(4),£SVSLIST(5) ,&SYSLIST(6) ,MF=E 00700000 

1 00710000 
(£KEY2).MNOTE1,.MNOTE2,.MNOTE3 00720000 

2 00730000 

*,«a£KEY2 NOT 1,2, OR 3 USE ££KEY3 IN PLACE OF IT* 00740000 

(£KEY3 EQ ll.MNOTEl, X00750000 

(£KEY3 EQ 2).MN0TE2, (£KEY3 Eg 31.MN0TE3 00760000 

*,«BOTH ££KEY2 AND ££KEY3 FAIL TO QUALIFY* 00770000 

.COMMON 00760000 

*,«££KEY£LOC(£N) =1* 00790000 

.COMMON 00600000 

f,'££KEY£LOC<£N) =2' 00810000 

.COMMON 00820000 

*,"££KEY£LOC(£N) = 3' 00830000 

5,8(,10) NOTE THAT OPCODES, OPERANDS £ COMMENTS 00840000 

ON MODEL STATEMENTS 00850000 

87 £(X£KEY1)(2I LH 12,13,°A( A5, X) ARE KEPT IN PLACE UNLESS DISPLACED 00860000 

88 £P2 ST 7,£P3 AS A RESULT OF SUBSTITUTION 00870000 

89 MEND 00880000 



68 




MACRO 


69 




DEMO 


70 


£L0C(1) 


SETC 


71 




GBLC 


72 




£P1 


73 


£N 


SETA 


74 




AGO 


75 


£N 


SETA 


76 




MNOTE 


77 




AIF 


78 




MNOTE 


79 




AGO 


80 


.MNOTEl 


MNOTE 


81 




AGO 


82 


.MNJTE2 


MNOTE 


83 




AGO 


84 


.MN0TE3 


MNOTE 


85 


.COMMON 


L 


86 


£XB(2) SR 9,10 



000066 1816 
OOC068 9220 1005 
G0006C 5081 0008 
000070 56F1 0008 
000074 58F0 F030 
C00078 05EF 



0C007A 5850 A008 
00007E 1B9A 
000080 98CD 8090 
000064 5073 60A8 



© 



91 ***** 



OEMO MACRO INSTRUCTION (CALLI 



00900000 



£XAI1),£XB(21,£XC(3) 00920000 

■AS 'MISSISSIPPI' 00930000 

'B', 'SUSQUEHANNA' 00940000 

•C, 'TRANSYLVANIA' 00950000 

KEY3=2,WRITE,REALLYLONGSYMB0L, M00960000 

A8+8*(B5-C0NSTANT-7J (3) ,KEY1=C, (6) ,SF, NOO97O0O0 

(6),KEY2=7 00980000 

1,6 LOAD OECB ADDRESS 03-IHeRD 

5(1),X'20' SET TYPE FIELD 03-IHBRD 

8,8(1,0) STORE DCB ADDRESS 03-IHBRO 

15,8(1,0) LOAD OCB ADDRESS 03-IHBRO 
15,48(0,15) LOAD ROWR ROUTINE ADDR 03-IHBRD 

14,15 LINK TO RDHR ROUTINE 03-IHBRO 

104t*,£KEY2 NOT 1,2, OR 3 USE £KEY3 IN PLACE OF IT 01-00076 

105+*, £KEY3 =2 01-00082 

OOOOB 1064- L 5,e(,10) NOTE THAT OPCODES, OPERANDS £ COMMENTS 01-00085 

®107tSUSQUEHANNA SR 9,10 ON MODEL STATEMENTS 01-00086 

108+TRANSYLVANIA LM 12, 13,=A( A5, XI ARE KEPT IN PLACE UNLESS DISPLACED O1-0C087 

O0OA8 109+REALLYLONGSYMBOL ST 7, A8+8* (B5-C0NSTANT-7) (3) X01-00088 
+ AS A RESULT OF SUBSTITUTION 



Vi/ 


93 


GBLC 




94 £XA(1) 


SETC 




95 £XB(1) 


SETC 


© 


96 £XC(1) 
97 


SETC 

DEMO 




98+ 


LR 




99+ 


MVI 


00008 


100 + 


ST 


00008 


101+ 


L 


00030 


102+ 


L 




103 + 


BALR 



46 



BIGNAHE INSERT PROGRAMMER MACRO INI SOURCE STREAM NOW 



LOG OBJECT CODE 



ADORl AD0R2 STMT SOURCE STATEMENT 



ASM H V 04 17.29 03/16/7^ 



© 



000088 1816 
OC008A 58F0 1054 
cocoa E 05EF 



G0009C 

00009C 00000000 

COOOAO OBOOOOA000000050 



OO0OA8 E3C9D4C5407E40F1 



00054 



OOOOOC 
OOOODC 
000090 



cooooo 
cooooo 

000700 1867 



000090 00000040FFFFFFE8 



© 

© 

© 
© 




17 

18 

19 CNAME 

20 

21 tNAME 

22 

23 

24 

25 .ERR 

26 



29 HARK 
30 

31 + 

32 + 
33+ 



COPY NOTE 

MACRO 

NOTE (;dcb,cdummy= 

AIF CtOCB' EO • 'J. ERR 

IHBINNRA LDCa 

L 15,84(0,1) 

BALR 14,15 

MEXIT 

IHBERMAC 6 

MEND 



01C60000 
00020000 
00040017 
00060000 
00080000 
LOAD NOTE RTN ADDRESS COIOOOOO 
LINK TO NOTE ROUTINE 00120000 
00140000 
00160000 
00180000 



OPSYN NOTE COMMENTS OF GENERATED STATEMENTS OCCUPY SAME 01090000 

MARK (6) 'COLUMNS' AS THOSE IN MODEL STATEMENTS 01100000 

LR 1,6 LOAD PARAMETER REG 1 02-IHBIN 

L 15,84(0,1) LOAD NOTE RTN ADDRESS 01-00122 

BALR 14,15 LINK TO NOTE ROUTINE 01-00123 



35 ^,:>::t:******'i:*********-**********'>:*'^******t:***********'^****** ************* 01120000 

36 DEECEES LOCTR SWITCH TO ALTERNATE LOCATION COUNTER 01130000 



37 B5 CCW X'OB', 85,0,80 

39 ^:ti:t:t,^^^^^if:i,:t,:^:^^^:ti,ilf*i,^:ti:f:t ********************************** *********** 

40 * DISPLAY OF tSYSTIME, tSYSDATE, tSYSPARM AND tSYSLOC * 

4X llf;Hi^XHf:)t^HHf^^^L^Xf ******************************************************* 



SSYSTIME, DATE = &SYSDATE, PARM = tSYSPARM' 
17.29, DATE = 03/16/72, PARM = SAMPLE PROGRAM' 



43 




PRINT ( 


44 DC 


C 


TIME = 


♦ DC 


C 


TIME = 


46 




MACRO 


47 




LOCATE 


48 6SYSECT 


CSECT 


49 aSYSLOC 


LOCTR 


50 




MEND 



52 LOCATE 

53+A CSECT 

54+DEECEES LOCTR 

55 A LOCTR 



DISPLAY OF CURRENT CONTROL SECTION 
AND LOCATION COUNTER 



DISPLAY OF CURRENT CONTROL SECTION 
AND LOCATION COUNTER 



57 ^:^t^1i:)Hf^c<)f**^:^*if:t******************************************************* 

NAMED COMMON THROWN IN FOR GOOD MEASURE 



58 PD2 


COM 




59 


OS 


500F 


60 


LR 


6,7 


61 


END 




62 




=A(A5,X) 



01160000 
0H700O0 
01180000 

01200000 
01210000 
01210000 

01230000 
01240000 
01250000 
01260000 
01270000 

01290000 
01-00148 
01-00149 
01300000 

01320000 
01330000 
01340000 
01350000 
01360000 
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IGNAME 








POS.ID 


REL.ID 


FLAGS 


ADDRESS 


0001 


0001 


OC 


000C90 


0001 


0001 


08 


OOCOAl 



RELOCATION DICTIONARY 



ASM H V 04 17.29 03/16/72 



CROSS REFERENCE 



A 

A5 

A7 

A8 

E5 



LEN 



VALUE 



00001 00000000 

00002 000040 
00016 000048 
00002 OOOOOOAO 
O00D8 OOOOAO 



CONSTANT 00004 000098 
CEECEES 00001 00000098 
P02 00001 00000000 

REALLYLONGSYMBOL 

00004 000084 
SUSQUEHANNA 

00002 00007E 
TRANSYLVANIA 

00004 000080 
X 00001 FFFFFFE8 

=A(A5,XI 00004 000090 



DEFN 


REFERENCES 




0002 


0028 


0153 


0155 


0034 


003 8 


0162 




0036 








0038 


0109 






0137 


0038 


0109 


0137 


C027 


0025 


0109 




0026 


0136 


0154 




0158 








0109 


0014 


0018 




0107 








0108 


0014 


0018 




0060 


0162 






0162 


0108 







PAGE 7 

ASM H V 04 17.29 03/16/72 



DIAGNOSTIC CROSS REFERENCE AND ASSEMBLER SUMMARY 



ASM H V 04 17.29 03/16/72 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 



OVERRIDING PARAMETERS- SYSPARM(SAMPLE PROGRAM 1 .NODECK, BATCH 
OPTIONS FOR THIS ASSEMBLY 

NODECK, NOOBJECT, LIST, XREF(FULL), NJRENT, NOTEST, BATCH, ALIGN, ESD, RLD, LI NtC0UNT(55) , FLAGCOI, SYSPARM(SAMPLE P 

ROGRAM) 
NO CVERRIDING DO NAMES 



13b CARDS FROM SYSIN 
198 LINES OUTPUT 



524 CARDS FROM SYSLIB 
CARDS OUTPUT 
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Appendix B. Sample Macro Trace and Dump (MHELP) 



The Macro Trace and Duirp (MHELP) facility is a useful means of debugging 
itiacro definitions. MHELP can be used anywhere in the source program or 
in macro definitions. MHELP is processed during macro generation. It 
is completely dynamic; you can branch around the MHELP statements by 
using AIF or AGO statements. Therefore, its use can be controlled by 
symbolic parameters and SET symbols. 

The following sample program illustrates the five priirary functions of 
MHELP. Since most of the information produced is unrelated to statement 
numbers, the dumps and traces in the listing are marked with circled 
numbers. Most dumps refer to statement numbers. If you request MHELP 
information about a library macro definition, the first five characters 
of the macro name will appear in place of the statement number. To get 
the statement numbers, you should use COPY to copy the library 
definition into the source program prior to the macro call. 



MACRO CALL TRACE (MHELP 1) 

Item @ illustrates an outer macro call, @ an inner one. In each 
case, the amount of information given is brief. This trace is given 
after successful entry into the macro; no dump is given if error 
conditions prevent an entry. 



MACRO ENTRY DUMP (MHELP 16) 

This provides values of system variable symbols and symbolic parameters 
at the time the macro is called. The following numbering system is used; 

Number Item 

000 gSYSNDX 

001 SSYSECT 

002 gSYSLOC 

003 gSYSTIME 
00 U gSYSEATE 

005 gSYSPARM 

006 NAME FIELE ON MACRO INSTRUCTION 

If there are NKW keyword parameters, they follow in order of appearance 
on the prototype statement. 

07 1st keyword value 

008 2nd keyword value 



006+NKW NKWth keyword value 
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If there are NPP positional parameters, they follow in order of 
appearance in the macro instruction. 

007+NKW 1st positional parameter values 
008+NKW 2nd positional parameter values 



006+NKW+NPP NPPth positional parameter values 



For example, item \16a; has one keyword parameter (SOFFSET) and one 
positional parameter. The value of the keyword parameter appears 
opposite 110006, the positional parameter, opposite 110007. In both the 
prototype (statement 3) and the macro instruction (statement 5^) , the 
positional parameter appears in the first operand field, the keyword in 
the second. A length appears between the NUM and VALUE fields. A 
length of NUL indicates the corresponding item is empty. 

Item (j6e) illustrates an inner call containing zero keywords, and two 
positional parameters. 



KACRO AIF DUMP (MHELP 4) 

Items (ja) , (53), \ij£) # ••• a^e examples of these dumps. Each such dump 
includes a complete set of unsubscripted SET symbols with values. This 
list covers all unsubscripted variable symbols which appear in the name 
field of a SET statement in the macro definition. Values of elements of 
dimensioned SET symbols are not displayed. 



MACRO BRANCH TRACE (MHELP 2) 



This provides a' one-line trace for each AGO and true AIF branch within a 
programmer macro. In any such branch, the "branched from" statement 
number, the "branched to" statement number and the macro name are 
included. Note, in example (^ , the "branched to" statement number 
indicated is not that of the ANOP statement bearing the target sequence 
symbol but that of the statement following it. The branch trace 
facility is suspended when library macros are expanded and MHELP 2 is in 
effect. To obtain a macro branch trace for such a macro, one would have 
to insert a COPY "macro-name" statement in the source deck at some point 
prior to the MHELP 2 statement of interest. 



MACRO EXIT DUMP (MHELP 8) 

This provides a dump of the same group of SET symbols as are included in 
the Macro AIF dump when a MEXIT or MEND is encountered. 

Note that local and/or global variable symbols are not displayed at any 
point unless they appear in the current iracrc explicitly as SET symbols. 
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SAMPLfc MHELP TRACR ANIl DUMP PAf.F 2 

LQC GflJECT coot AflOKl A0DK2 STMT SOURCE STATEMENT ASM H V 01 11.52 05/19/70 

2 ♦ INCLUOE MACRf) UF-ElNITIl)MS Tn bb TRACED IN THE SOURCE PROGRAM 

00000 4 CSFCT 

5 COPY L-ISHCH 

6 MACRO 

/ {.NAME LNSRCH r.ARG, tOFFSET'STMUMd-STCHAIN 

8 LCLC KLAliFL 

" CLABEL SCTC 'AtSVSMDX' GFi^JcRATE SYMBOL 

10 Air (T't.NAME FQ 'O'l.SKIP 

11 CLABFL SETC 'GNAMC' IF MACRO CALL HAS LABEL. USE IT 
l^ .SKIP ANUP INSTEAD OF GENERATED SYMBOL 

13 KLABEL LA O.COFFSET LOAD RFG. 

I'l SCHI f.Ar!G,0(l) SFARCH 

15 BC l.tLAHF.L IF MAX RFACMED. CONTINUE 

16 MEND 

la COPY SCHI 

1<) MACRO 

20 f.NM SCril CCOMP.r.LIST 

21 LCLA &CNT 

22 LCLC r^CMPADR 
7i CCNT SETA 1 

24 tNM SIM 1,15,4(13) 

25 .TEST ANOP 

?A CCMPADR SHTC • tCMPAiJK • . ' ECDMP' t f.CNT, 1 1 

27 AIF CtCOMP' (SCNT.l) EO '('LLPAR 

28 f.CNT SETA dCNT + l 

29 AIF (tCNT LT K' CCOMP ) . TEST 

30 .NOLNTH ANUP 

31 LA 3,CC0MP COMPARAND 

32 AGO .CONTIN 

33 .LPAR AIF ( ' dCOMP' (tCNT+1 , 1 ) EO ',•). FINISH 

34 eCNT SETA CCNT+1 

35 AIF (CCNI LT K • tCUMP) .LPAR 

36 AGd .NOLNTH 

37 .FINISH ANuP 

3S tCMPAOR SETC • CCMPADR ' . • dCuMP' ( tCNT+2, K ' ECUMP-SCNT) 

39 LA 3,CCMPA0R COMPARAND SANS LENGTH 

40 .CdNTIN. ANOP 

41 LA l.KLIST LIST HEADER 

42 MVC CCIIMP,0(0) DUMMY MOVE TO GET COMP LENGTH 

43 ORG *-A CHANGE MVC TO MVI 

44 DC X'92' MVI OPCODE 

45 ORG »+l PRESERVE LENGTH AS IMMFO OPND 

46 DC X'OOOO' RESULT IS MVI 0(131, L 

47 L 15, = V(SCHII 

48 BALR 14,15 

49 LM 1,15,4(131 

50 MEXIT 

51 MEND 
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SAMPLE HHELP TRACE AND OUMP 



LQC OBJECT CODE 



000000 
000000 05C0 



ADDRl ADDR2 STMT SOURCE STATEMENT 

S3 TEST CSECT 

5A BALR 12,0 

00002 55 USING *,12 



PAGE 3 

ASM H V 01 11.52 05/19/70 



® 



MHELP O'UUl' REQUEST ALL MHELP FUNCTIONS 

LNSPCH LISTLIN£,UFhSFT=LISTLINE-LISTNEXT 



++//MHELP. CALL TO MACRO LNSRCH 



l)EPTH=001, SYSNDX=0001, STMT 00058 



® 



//MHELP ENTRY TO LNSRCH . MODEL STMT 00000, DEPTH=001, SYSNDX=0001, KHCNT=001 
////PARAMETERS ( SYSNOX, SYSECT, SYSLOC ,SYST IMEt S YSDATE, SYSP ARM,NAME,KWS,PPS ) /// 
//NUM LNTH VALUE (64 CHARS/LINE I 



//oooo 


00*, 


OOOl 


//OOOl 


004 


TEST 


//0002 


004 


TEST 


//0003 


005 


11.52 


//noo4 


008 


05/19/70 


//0006 


014 


SAMPLE*PRUGRAM 


//0006 


NUL 




//0007 


017 


LISTLINE-LISTNEXT 


//0008 


008 


LISTLINfc 



//MHELP AIF IN LNSRCH . MODEL STMT 00010, DfcPTH=001, SYSNOX=0001 , KWCNT=001 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLC LABEL LNTH= 005 

// VAL=A0001 



000002 4100 0002 



[ZA) ++//MHELP. BRANCH FROM STMT OOOIO TO STMT 00013 IN MACRO LNSRCH 

00002 59+AOOOl LA 0, L ISTL INE-LIS TNEXT LOAD REG. 

+ 4-//MHELP. CALL TO MACRO SCHl . DEPTH=002, SYSNDX=n002, STMT 00014 



© 

(|6b) 



000006 901F 0004 



//MHELP ENTRY TO SCHl . MODEL STMT 00000, DEPTH=002, SYSNDX=0002 , KWCNT=000 
////PARAMETERS ( SYSNOX, SYSECT, SYSLOC , SYSTIME.SYSDATE, SYSPARM,NAME,KWS,PPSI /// 
//NUM LNTH VALUE (64 CHARS/LINEI 

0002 

TEST 

TEST 

11.52 

05/19/70 

SAMPLn*PROGRAM 



//OOOO 004 

//OOOl 004 

//0002 004 

//0003 005 

//0004 008 

//0005 014 

//00Q6 NUL 

//0007 008 

//0008 004 



LISTLINF 
0(1) 



60+ STM 1,15,4(13) 

I //MHELP AIF IN SCHl 



MODEL STMT 00027, DEPTH=002, 



02-00024 
SYSNOX=0002, KWCNT=000 
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SAMPLE MHELP TRACE AND DUMP PAGE 4 

LQC DBJECT CODE ADDRl AD0R2 STMT SOURCE STATEMENT ASM H V 01 11.52 OS/19/70 

////SET SYMBOLS (SKIPPED NUMBERS MAY Bfc SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000001 

//OOOl LCLC CMPAOR LNTH= 001 

// VAL=L 

©//MHELP AIF IN SCHI . MODEL STMT 00029f DEPTH=002, SYSNDX=0002f KWCNT'OOO 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000002 

//OOOl LCLC CMPADR LNTH= 001 
// VAL=L 

(eb) t«-//MHELP. BRANCH FROM. STMT 0002J TO STMT 00026 IN MACRO SCHI 

®//HHELP AIF IN SCHI . MODEL STMT 00027f DEPTH=002t SYSN0X=0002t KWCNT=000 
////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000002 

//OOOl LCLC CMPADR LNTH= 002 

// VAL=LI 

©//MHELP AIF IN SCHI • MODEL STMT 00029f DEPTH=002f SYSNDX=0002i KHCNT=000 

////SET SYMBOLS (SKIPPED NUMBERS MAY BF SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000003 

//OOOl LCLC CMPADR LNTH= 002 
// VAL=LI 

(ZO) ♦+//MHELP. BRANCH FROM STMT 00029 TU STMT 00026 IN MACRO SCHI 

//MHELP AIF IN SCHI . MODEL STMT 00027t DEPTH=002, SYSNDX=0002f KHCNT=000 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000003 

//OOOl LCLC CMPADR LNTH= 003 

// VAL=LIS 

//MHELP AIF IN SCHI . MODEL STMT 00029t DEPTH=002f SYSN0X=0002i KHCNT«000 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000004 

//OOOl LCLC CMPADR LNTH= 003 

// VAL=LIS 

♦♦//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 

//MHtLP AIF IN SCHI . MODEL STMT 00027, 0EPTH=002, SYSNOX=«0002, KHCNT-000 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000004 

//OOOl LCLC ' CMPADR LNTH= 004 

// VAL=LIST 
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SAMPLE MHELH TRACE AND DUMP PAGE 5 

LOC tiyjECT CCIOE AllORl ADDR2 STMT SOURCE STATEMENT ASM H V 01 U.SZ 05/19/70 

//MHELP AIE IN SCHI . MODEL STMT C0029, DEPTH=002t SySNOX=0002, KHCNT=O0O 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000005 

//OOOl LCLC CMPADR LNTH= OO't 

// VAL=LIST 

♦ + //MHELP. BRANCH FROM STMT 000Z'> TO STMT 00025 IN MACRO SCHI 

//MHELP AIF IN SCHI . MODEL STMT 0002/, 0EPTH=002, SVSNnx=0002, KWCNT=000 

////SET SYMrtHLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS!.// 

//OOOO LCLA CNT VAL= 0000000005 

//OOOl LCLC CMPAUR LNTH= 005 

// VAL=LISTL 

//MHtLP AIF IN SCHI . MODEL S 1 MT 0002'3, DEPTH = 002, S>'SNDX = 0002 , KHCNT=000 

////SET SYMIOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000006 

//COOl LCLC CMPADR LNTH= 005 

// VAL=LISTL 

++//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 

//MHELP AIF IN SCHI . MODEL STMT 00027, DfcPTH=002, SYSNDX=0002, KWCNT=000 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000006 

//OOOl LCLC CMPADR LNTH= 006 

II VAL=LISTL1 

//MHELP AIF IN SCHI . MODEL STMT 00029, DtPTHio02, SYSNDX=0002, KWCNT=000 

llim\ SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

IIOOOO LCLA CNT VAL= 0000000007 

//OOOl LCLC CMPADR LNTH= 006 

// VAL=LISTLI 

t+//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 

//MHELP AIF IN SCHI . MODEL STMT 00027, DEPTH=002, SYSNDX=0002, KWCNT=00O 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000007 

//OOOl LCLC CMPADR LNTH= 007 

// VAL=L1STLIN 

//MHELP AIF IN SCHI , MODEL STMT 00029, DEPTH=n02, SYSNDX=0002, KWCNT=0OO 
////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
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SAMPLE MHELP TRACE AND DUMP 



LOC OBJECT CODE 



ADORl A0DR2 STMT SOURCE STATEMENT 



ASM H V 01 11.52 05/19/70 



//OOOO LCLA CNT 
//OOOl LCLC CMPAdR 
// VAL=LISTLIN 



VAL = 
LNTH = 



0000000008 

no7 



OOOOOA 4130 C024 











♦♦//MHFLP. BRANCH FROM STMT 


OOOOOE 4111 


0000 




00000 


62 + 


LA 1,0(11 


000012 0202 


C0Z4 


0000 


00026 00003 


63+ 


MVC LIiTLINE,0(0) 


000018 






00012 


64 + 


ORG ♦-6 


000012 92 








65 + 


DC X'92« 


000013 






00014 


66+ 


CIRO * + l 


000014 0000 








67 + 


nc x"nooo« 


OOOOIA 59F0 


COZE 




00030 


68 + 


L 15,=V(SCHI) 


OOOOIA 05EF 








69+ 


RALR 14,15 


OOOOIC 981F 


0004 




00004 


70 + 


LM 1,15,4(131 



LIST HEAUtR 

DUMMY MOVE TO GET COMP LENGTH 

CHAMGE MVC TO MVI 

MVI UPCOOE 

PPFStKVE LENGTH AS IMMED OPND 

RESULT IS MVI 0(13), L 



02-00041 
02-00042 
02-00043 
02-00044 
02-00045 
02-00046 
02-00047 
02-00048 
02-00049 



000020 4710 COOO 



//MHELP EXIT FROM SCHI . MODEL .STMT 00050, UEPTH=002, SYSNnX = 0002, 

////SET SYMIKILS (SKIPPED .NUMBERS MAY hE SEQUENCE SYMBOLS!.// 

//OOOO LCLA CNT VAL= 

//OOOl LCLC CMPAOK LNTH= 
// VAL = LISTHN 



»C 



1,A0001 



IF MAX REACHED, CONTINUE 



//MHELP EXIT FROM LNSRCH . MODEL STMT 00016, DEPTH=001, SYSNDX=0001, 
////SET SYMBOLS (SKIPPED NUMrtERS MAY BE SEQUENCE SYMBOLS!.// 
//OOOO LCLC LABEL LNTH= 

// VAL=A0001 



KWCNT=0OO 



0000000008 
007 



01-00015 
KHCNT=00l 
005 



000024 

000026 

000030 

000030 00000000 

000000 



72 LISTNEXT OS H 

73 LISTLINE OS FL3«0' 

74 LTORG 

75 =V(SCHl) 

76 END TEST 
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Appendix C. Object Deck Output 



ESD Card Format 

The format of the ESD card is as follows: 

Columns Contents 

1 12-2-9 punch 

2-4 ESD 

5-10 Blank 

11-12 Variable field count *- number of bytes 

of information in variable field (columns 17-64) 
13-14 Blank 
15-16 ESDID of first SD, XD, CM, PC, ER, or WX 

in variable field 
17-64 Variable field. One to three 16-byte 

items of the following format: 

8 bytes — Name 

1 byte — ESD type code 

The hex value is: 



00 


SD 


01 


LD 


02 


ER 


04 


PC 


05 


CM 


06 


XD (PR) 


OA 


WX 



3 bytes — Address 

1 byte — Alignment if XD; otherwise blank 

3 bytes — Length, LDID, or blank 

65-72 Blank 

73-80 Deck ID and/or sequence number — 

The deck ID is the name from the first TITLE 
statement that has a non- blank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 



TEXT (TXT) Card Format 

The format of the TXT cards is as follows: 

Columns Contents 

1 12-2-9 punch 

2-4 TXT 

5 Blank 

6-8 Relative address of first instruction on card 
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9-10 Blank 

11-12 Byte count — number of bytes in information 
field (columns 17-72) 

13-m Blank 

15-16 ESDID 

17-72 56-byte information field 

73-80 Deck ID and/or sequence number — 

The deck ID is the name from the first TITLE 
statement that has a non -blank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remainiiig columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 



RLD Card Format 



The format of the RLD card is as follows; 
Columns Contents 



1 12-2-9 punch 

2-4 RLD 

5-10 Blank 

11-12 Data field count — number of bytes of 

information in data field (columns 17-72) 
13-16 Blank 
17-72 Data field: 

17-18 Relocation ESDID 
19-20 Position ESDID 
21 Flag byte 

22-2U Absolute address to be relocated 
25-72 Remaining RLD entries 
73-80 Deck ID and/or sequence number — 

The deck ID is the name from the first TITLE 
statement that has a non -blank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 

If the rightmost bit of the flag byte is set, the following RLD entry 
has the same relocation ESDID and position ESDID, and this information 
will not be repeated; if the rightmost bit of the flag byte is not set, 
the next RLD entlry has a different relocation ESDID and/or position 
ESDID, and both ESDIDs will be recorded. 

For example, if the RLD Entries 1, 2, and 3 of the program listing 
contain the following information: 



Position Relocation 
ESDID ESDID Flag 



04 
04 
01 



Address 



Entry 


1 


02 


Entry 


2 


02 


Entry 


3 


03 



oc 
oc 
oc 



000100 
000104 
000800 
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I then, columns 17-72 of the RLD card would be as follows: 



Column: 



Entry 1 
17 18 19 20 21 22 23 24 



Entry 2 
25 26 27 28 



Entry 3 
29 30 31 32 33 34 35 36 



37- 



->72 



00 04 00 02 OD 00 01 00 



OC 00 01 04 



00 01 00 03 OC 00 08 00 



ESD IDs 



Flag 
(set) 



T Add 



Address 



Esd IDs 



Flag 
(not 
set) 



Flag 
(not 
set) 



V 

Address 



blanks 



END Card Format 



The format of the ENE card is as follows: 
Columns Contents 

1 12-2-9 punch 

2-4 END 

5 Blank 

6-8 Entry address from operand of END card in 
source deck (blank if no operand) 

9-14 Blank 

15-16 ESEIE of entry point (blank if no operand) 

17-32 Blank 

33 Number of lER items that follow (EBCDIC 1 or 
EBCDIC2) 

34-52 Translator Identification, version and ircdif ication 
level (such as 0301) , and date of the asseirbly 
(yyddd) 

53-71 When present, they are the same forirat as columns 
34-52 

73-80 Deck ID and/or sequence number — 

The deck ID is the name from the first 111LE 
statement that has a non-blank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 
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TESTRAN (SYM) Card Format 

If you request it, the assembler punches out symbolic information for 
TESTRAN concerning the assembled program. This output appears ahead of 
all loader text. The format of the card images fcr TESTRAN output is as 
follows: 

Columns Contents 

1 12-2-9 punch 

2-4 SYM 

5-10 Blank 

11-12 Variable field count — number of bytes of 
text in variable field (columns 17-72) 

13-16 Blank 

17-72 Variable field (see below) 

73-80 Deck IE and/or sequence number — 

The deck ID is the name from the first TITLE 
statement that has a non-blank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 

The variable field (columns 17-72) contains up to 56 bytes of TESTRAN 
text. The items making the text are packed together; consequently, only 
the last card may contain less than 56 bytes of text in the variable 
field. The formats of a text card and an individual text item are shown 
in Figure 12. The contents of the fields within an individual entry are 
as follows: 

1. Organization (1 byte) 
Bit 0: 

= non-data type 

1 = data type 

Bits 1-3 (if non-data type) : 

000 = space 

001 = control section 

010 = dummy control section 

011 = common 

100 = instruction 

101 = CCW 

Bit 1 (if data type) : 

= no multiplicity 

1 = multiplicity (indicates presence of M field) 

Bit 2 (if data type) : 

= independent (not a packed or zoned decimal constant) 

1 = cluster (packed or zoned decimal constant) 

Bit 3 (if data type) : 

= no scaling 

1 = scaling (indicates presence of S field) 



Bit 4: 



= name present 

1 = name not present 



Bits 5-7: 

Length of name minus 1 
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2. Address (3 bytes) — displacement from base of control section 

3. Symbol Name (0-8 bytes) — symbolic name of particular item 
Note : The following fields are present only for data-type items. 

4. Data Type (1 byte) — contents in hexadecimal 

00 = character 

04 = hexadecimal 

08 = binary 

10 = fixed point, full 

lU = fixed point, half 

18 = floating point, short 

1C = floating point, long 

20 = A-type or Q-Type data 

24 = Y-type data 

28 = S-type data 

2C = V-type data 

30 = packed decimal 

34 = zoned decimal 

38 = floating point, extended. 

5. Length (2 bytes for character, hexadecimal, decimal, or binary items; 
1 byte for other types) — length of data item minus 1 

6. Multiplicity - M field (3 bytes) ~ equals 1 if not present 

7. Scale - signed integer - S field (2 bytes) — present only for F, H, 
E, D, P and Z type data, and only if scale is non-zero. 



1 2 



4 5 



10 11 12 13 



16 17 



72 73 



80 



blank 




TESTRAN text - packed entries 



Deck g^ Sequence 
ID number 



56 



Entry 
(complete or 
end portion) 



N complete entries 
IM > 1 



Entry 
(complete or 
head portion) 



Variable size entries 



Org. 



Address 



Symbol name 



Data 
type 



Length 



Mult, 
factor 



Scale 



Org. 



Symbol 
name 



0-8 



1-2 



Figure 12. TESTRAN SYM Card Format 
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Appendix D. Dynamic Invocation of the Assembler 



The assembler can be invoked by a problem program at execution time 
through the use of the CALL, LINKAGE, XCTL, or ATTACH, iracro instruction, 
If the XCTL macro instruction is used to invoke the assembler, then no 
user options may be stated. The assembler will use the standard 
default, as set during system generation, for each option. 

If the assembler is invoked by CALL, LINKAGE, or ATTACH, you may supply: 

1) The assembler options 

2) The DDnames of the data sets to be used during processing. 



Name 


Operation 


Operand 


[symbol] 


CALL 

[link ] 
\ attach/ 


IEV90,{optionlist 
[.ddnamelist] ),VL 
EP=IEV90, 
PARAM=(optionlist 
[.ddnamelist] ),VL=1 



EP — specifies the symbolic name of the assembler. The entry point at 
which execution is to begin is determined by the control program 
(from the library directory entry) . 

PARAM — specifies, as a sublist, address parameters to be passed from 
the problem program to the assembler. The first word in the address 
parameter list contains the address of the option list. The second 
word contains the address of the DDnaire list. 

optionlist — specifies the address of a variable length list containing 
the options. This address must be written even if no option list is 
provided . 

The option list must begin on a halfword boundary. The first two bytes 
contain a count of the number of bytes in the remainder of the list. If 
no options are specified, the count must be zero- The option list is 
free form with each field separated from the next by a comma. No blanks 
or zeros should appear in the list. 

DDnamelist — specifies the address of a variable length list containing 
alternate EEnames for the data sets used during compiler processing. If 
standard DDnames are used, this operand may be omitted. 

The DEname list must begin on a halfword boundary. The first two bytes 
contain a count of the number of bytes in the remainder of the list. 
Each name of less than 8 bytes must be left- justified and padded with 
blanks. If an alternate EDname is omitted, the standard name will be 
assumed. If the name is omitted within the list, the 8-byte entry must 
contain binary zeros. Names can be omitted from the end merely by 
shortening the list. The sequence of the 8-byte entries in the EDname 
list is as follows: 
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Entry Alternate Name 



1 


SYSLIN 


2 


not applicable 


3 


not applicable 


4 


SYSLIB 


5 


SYS IN 


6 


SYSPRINT 


7 


SYSPUNCH 


8 


SYSUT1 


Note : An 


overriding EEname ; 



Operating System occupies the same place in the above list as the 
IBM-supplied DDname it overrides. The overriding DDname can itself be 
overridden during invocation. For example, if SYSW0RK1 replaced SYSUT1 , 
it occupies position 8 in the above list. SYSW0RK1 can be overridden by 
another name during invocation. 

VL — specifies that the sign bit is to be set to 1 in the last word 
of the address parameter list. 

The Job Control Language Reference manual provides additional 
description of overriding techniques. 
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BATCH assembler option 2 



Calling the assembler from a problem 
program 61 
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Cross-reference 
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Examples 19,47 
Listing format 23-24 
Concatenation of SYSLIB data sets 6 
COND parameter 8,15 



Data sets, assembler 

Characteristics 5, 7-8 
List of 4 
DD statements, overriding in cataloged 

procedures 15 
DECK assembler option 2 
Default options 3-4 
Diagnostic cross-reference and assembler 

summary 24-25 
Diagnostic facilities 

See Assembler diagnostic facilities. 
Dynamic invocation of the assembler 61 
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Entry point restatement 34 

Error messages 26-28 

Cross-reference 24-25 
ESD 

See External symbol dictionary 
ESD (NOESD) assembler option 2 
EXEC statement 

Overriding in cataloged procedures 15 
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Extended precision machine instructions 37 
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Entry types 20 

Examples 19,43 
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FLAG assembler option 2,3 
Format 

See error messages; macro-generated 
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selection for assembler data sets 
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Invoking the assembler from a problem 

program 61 
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Listing 19-25 
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Linkage, object module 34-36 
LINECOUNT assembler option 2 
LIST (NOLIST) assembler option 
Listing control instructions, 
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Load module modification 34 



FARM field 1,33 
Procedure 

See Cataloged procedures 
Program termination 33 
Programming considerations 32-38 



Machine instructions, extended 

precision 37 
Macros, error messages in 26 
Macro-generated statements, format 

of 22 
Macro definition libraries, additions 

to 33 
Macro Trace Facility (MHELP) 
Description 29-31 
Sample 49-55 
Messages 
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MHELP 

See Macro Trace Facility 
Model 85, 91, and 195 programming 

considerations 37 
MNOTE 29,42 



Registers, saving and restoring 36 
Relocation dictionary 

Listing format 23 

Output text format 57-58 

Examples 19,47 
RENT (NORENT) assembler option 2 
Restoring general registers 32 
Return codes 8 

See also FLAG assembler option 
RLD 

See Relocation dictionary 
RLD (NORLD) assembler option 2 
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Sample programs and listings 

Assembler language features 39-47 
Assembler listing description 19 
Diagnostic error messages 28 
MHELP 49-55 

Saving general registers 32 

Sequence number 23 

Severity codes 8, 26 

See also FLAG assembler option 

Source and object program assembler 
listing format 21 

Special CPU programming considerations 37 

Statistics, assembler 25 

Suppression of error messages 29 

SYSIN data set 6 

SYSLIB data set 6 

SYSLIN data set 6 

SYM card (TESTRAN) format 59-60 

SYSPARM assembler option 3 

SYSPRINT data set 6 

SYSPUNCH data set 6 

SYSUTl data set 6 
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Termination 

Abnormal assembly 

Program 33 
TEST (NOTEST) assembler option 2 
TESTRAN (SYM) card format 59-60 
TEXT (TXT) card format 56-57 



Unaligned operands 2,38 
Using the assembler 1-17 
Utility data set 6 



XREF (NOXREF) assembler option 2 
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